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Preface 


When my company, Mr Micro Ltd, obtained a pre-release CPC464 
from Amstrad for program development we were immediately 
impressed by its features and performance. I am pleased that 
alongside our development of commercial software for the machine 
we have been able to produce this book of games for owners to enter, 
to learn from, and enjoy. 

The Amstrad computer is a very capable machine and the 
Locomotive Software BASIC operates very quickly. This helps to 
produce games which run at an acceptable speed. 

Even a fast BASIC such as the one in the Amstrad is widely 
considered as less than ideal for writing games due to its relatively 
slow operation speed when compared to machine code. Although 
this can be true for some fast action games, this book is written to 
demonstrate that, in the right hands, BASIC can produce games 
which are enjoyable, exciting and require quick thinking. 

Not all the programs are written totally in BASIC, and you will 
find some machine code routines are used in some programs. 
Machine code has been used whenever required to ensure a first class 
game. Encounters with the ‘raw code’ have been made as painless as 
possible. 

I am always amused when I see a game advertised as ‘100 per cent 
machine code’, especially when the game turns out to be very poor. 
Some people seem to think that the phrase is somehow the software 
equivalent of being a Five Star Hotel. It is not! 

It is never automatically true that machine code is better than 
BASIC. What matters is the game. Whether it is BASIC or machine 
code should not matter to the player. 

It is worth commenting on the opinions some people have of 
games. It is often said that games are a trivial use of the power of the 
micro and a waste of time for the player. I know of some people who 
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never admit that they play computer games. This is presumably on 
the basis that if you enjoy it, then it can’t be good. 

The fact is that typing in programs is a superb way to learn about 
the computer and its languages. Games not only provide a rewarding 
end result, but actually call upon more of the machine’s resources 
than say a business program. This means that game programming is 
the best way to learn a computer language. 

Games have been played since the civilisation of man. Indeed 
many eminent people have theorised that game playing is a vital 
factor in the development and advancement of mankind. Only the 
micro can so quickly and easily produce such a wide range of 
stimulations. It must bea legitimate use of this technology to improve 
our leisure. 

Since you have read this far | hope that we can count on your 
support for game playing! Remember to speak out in favour of fun 
whenever you can. If people say that game playing is a waste of time, 
then remind them that watching TV, reading a novel, or even going 
for a walk, could be described the same way. We all have a need to 
relax. Let each do it in his own way. For me the fun is in designing 
and developing games that others can enjoy playing. I hope that you 
will enjoy this collection. 

In producing this book | have been particularly keen to ensure that 
a wide range of games are included. Equal importance has been 
placed upon the graphics and presentation to ensure that each one is 
well worth the typing effort. 

The production of this book has been a team effort requiring a 
great deal of dedication and application by all concerned. I am 
pleased to record my thanks to programmers ‘ISSI’, whose skill is 
well represented, and to ‘Andy’ who also has fine examples of his 
work included. The other key members of the team were Janet and 
my wife Val who typed, and re-typed, until the task was complete. 

Finally | record my thanks to Ann Berne and Richard Miles of 
Granada Publishing for commissioning the book and guiding it 
through the convoluted channels of publishing to reach your hands. 


Jim Gregory 


introduction 


Each game featured in these pages has been specially written for this 
book. This has resulted in a range of programs covering all types of 
games. They incorporate many useful techniques and some share the 
same subroutines. In some cases, control routines are arranged in 
such a way that if you use the method detailed in the chapter on 
subroutines you will be able to save yourself a lot of typing! 

Each listing has been printed with a width setting of 40 columns to 
help reduce entry errors. This means that if you use Mode I to enter 
the programs then a line on the page will match a line on the screen; 
this feature is an example of the effort which has gone into ensuring 
your complete success with each and every program. 

After extensive testing all the listings have been produced from 
actual working programs. Each has been reproduced directly from 
the computer printout. This means that the most likely reason fora 
program not working is that the reader has typed it in wrong! 

I have entered many programs from books and magazines, and | 
know from experience that at some stage you will not believe that you 
have got it wrong. Please read the following notes on programming 
carefully. They will help you to avoid the most common mistakes as 
you enter the programs. Follow the advice given and you will find 
that your microcomputer hobby can be more enjoyable and less 
frustrating. 

Although most of the following guidelines may seem obvious, each 
will save you time or trouble. If you are prepared and relaxed then 
few errors will be made. 


First program yourself 


1. Set up your equipment on a desk or table, make sure that you 
are seated properly and try to keep your back straight. Ensure that 
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lighting is good and that the book is supported where it can be read 
easily. 

2. Before you start a long typing session ensure that everything is 
plugged in! 

3. Make sure that you have a good supply of blank tapes. 

4. If your blank tapes have a ‘leader’ on them, it is a good idea to 
prepare them for saving by turning the hub until the brown of the 
tape shows. 

5. To make certain everything is OK, get a long audio tape suchas 
a C90, which will be your working tape. Next complete a ‘Save and 
load test’, e.g. type in 


Id REM — TEST 
20 PRINT“TEST O.K.” 
30 GOTO 1 


or a similar short program. 

Save Test, rewind the tape, then load Test, and‘RUN’it. IfthisisOK, 
do not rewind the tape, leave it where it stopped. If all does not 
operate correctly then check everything and try again, until all is 
working. You will then be able to use this tape to store your program, 
either when you have finished or part way through to be continued 
later. 

I recommend that you use the Speedwrite option and save the 
program twice rather than use the slow speed. This has been found 
to be totally satisfactory during the development of programs for this 
book. 

6. When you save a part version give it a title which will help you 
later, such as ‘VI’, ‘V2’, etc. You may prefer to use the date and time 
of saving, e.g. 8.15—14/ 10/85. 

As you save a version, remember to make a note on the cassette or 
insert of the title and the counter number. These will enable you to 
retrieve the program quickly when you wish to resume entering the 
program or to ‘debug’ your completed program. 

7. Always save onto tape before you type RUN. The microworld is 
full of keen folk who lost hours of work because they typed RUN 
before saving. (If you have saved earlier versions as directed, at least 
only part will be lost.) 

The reasons for losing a program in this way are various. Examples 
are: mistyping words so that the interpreter performs a ‘new 
instruction, or gets into a loop from which there is no escape except 
by switching off. Programs which incorporate either machine code, 
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POKE statements or System calls are most liable to ‘crash’, due to 
incorrect values being encountered by the program. 

8. When a program is finished and working it is recommended 
that one copy is kept on a C90 back-up tape along with other 
programs. The main copy should be stored ona suitable short length 
cassette such as a C15. Only one program per side should be allowed, 
to enable it to be loaded easily and quickly when required. Remember 
to write the title on the label. 

This two-tape system should help to prevent re-typing if a cassette 
is lost, damaged or develops a fault. 

9. Many users become very careless about storage of cassettes and 
then wonder why they sometimes become faulty. If you want to keep 
what you’ve saved follow these rules: 


@ Identify all tapes and cases clearly. 

@ Keep them in cases in a rack or storage system. 

@ Store away from heat. 

@ Store away from any magnetic fields such as TV sets, computers, 
loudspeakers, motors, fans and very definitely telephones, all of 
which may damage or erase your program. 

@ Don't leave tapes in the deck when they are not required, and do 
not leave the deck switched into ‘play’ unless the program requires 
it. 

@ Remember to break out the plastic tabs at the back of the tape to 
prevent accidental erasure of the program. If ever you wish to re- 
record over a protected tape temporarily cover the tab hole with 
adhesive tape. 


10. Don’t spend longer than about three hours ina session. Havea 
break, walk about, have a shower, play a game! 


Other problems 


PARIS 
IN THE 
THE SPRING 


Read the above out loud! You will be surprised to know that most 
people read it as ‘Paris in the spring’. Perhaps you did too! However, 
it actually says ‘Paris in the the spring’. The word ‘the’ is printed 
twice, but because it is not expected and because the phrase is 
familiar, the second ‘the’ is not ‘seen’ by the mind. 
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A similar problem occurs when programs are typed in from 
listings. You often type what you expect to see instead of what is 
printed. This is why the letter O is sometimes typed when it should be 
‘zero’ (printed as ()), or S is incorrectly typed instead of the dollar 
symbol (printed as $). 

A moment’s lapse of concentration can lead to lines becoming 
jumbled as the eye jumps from one line to the next. For example: 


19 PRINT“This is the start” 
20 PRINT“This is next” 


becomes: 
1 PRINT“This is the next” 


Look at the screen to check that your shifted letters have been 
correctly entered. Failure to do this produces classics such as: 


I) PRINT 2 WHERE ARE THE QUOTES!2 


Under no circumstances should you attempt to alter a program as 
it is entered. If the numbers go: 10,20,30, etc., then enter them like 
that. Changes are best made after a program is known to be working. 
This applies to everything — do not be tempted to miss out lines 
because you think that they may be optional. Otherwise program 
control could attempt to go to a line number that you have changed 
or deleted, and crash the program. 

‘Rem’ statements are remark statements and have been used to 
help you to understand the program. They should be entered as 
printed. Only when a working program has been produced and saved 
should you perhaps produce a copy which has no‘REMs’. This could 
save a little memory, but there is no real benefit to be obtained. On 
the programs listed in this book it is safe to omit all ‘REMs’. This is 
because care has been taken not to send control toa ‘REM?’ line. Be 
careful with programs from other sources — there are some authors 
who think that it is good practice to send control to a ‘REM’ line. 

Spaces are always of vital importance in a computer program. 
Care should be taken to get them right, to enable spaces to be counted 
and entered accurately. Simply align a piece of paper or card with the 
characters above and below, and count as the edge is moved along. 

The width of printout has been set to match the 40 column Mode | 
display of the computer. If you use Mode | for entry this should help 
you to check that everything is right ~ forexample, if the listing shows 
a line ending with four spaces. Then your line on the screen should 
also have four spaces at the end. Please be particularly careful to 
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enter each line as a complete line from the line number commands. 
Confusion could arise when the line includes numbers which wrap 
onto the next line. Do not enter these lines separately, or the 
computer will take it as a line number which will cause problems. 

You may find it useful to place a ruler along the line you are up to. 
This will further reduce the risk of errors. 

If you follow all the foregoing then you should not have any great 
problems. However, it is inevitable that some bugs will creep in. If 
your program fails to operate properly then the last chapter contains 
some helpful advice on debugging. 


A special note on Marie Celeste (No. 1) 


Some readers have been confused by the symbol printed between 
quotes for V$. This is the apostrophe and is obtained using [shift] 7. 
To remove the ability to cheat, the following lines can be added: 


34965 IF O(N)<>PO THEN 34949 
36929 IF N*®=O%(N) THEN 34955 
36955 IF O(N)<>PO THEN 36949 


Warning only to be read by those who have difficulty solving the 
Marie Celeste adventure: 

We suggest you start by taking the knife, then climbing the rope. Do 
not go aft yet or you may be trapped. Once you have cleaned the 
decks and found a new location you should be able to solve the rest. 
NO FURTHER CLUES WILL BE GIVEN! 


Techniques Used in the 
Programs 


Colour pointers (logical colours) 


The system of colour allocation used in the Amstrad can help 
produce the illusion of very fast movement. The system works by 
drawing each moving element of a picture separately with different 
colour pointers. Next the pointers are swapped under program 
control. When each colour is changed the effect on screen is 
instantaneous and produces the impression of movement. 

Many of the games in this book have been designed around this 
feature. Maze Maniac uses the technique to great effect. The result is 
a maze which changes views very rapidly. This speed could not have 
been achieved otherwise, unless extensive machine code routines 
were used. 

The cassette which came with your Amstrad has some other 
examples which are very decorative. 

This technique works best in Mode @), since 16 colours are available 
to produce in effect 16 sets of movement or switched zones. If greater 
resolution and limited movement is required then Mode | provides 4 
sets. 

Remember that one colour will be required for the background 
and any permanent information that you want on screen. 

Take a careful look at the dice rolling routine contained in this 
book, to see another example of how effective this system can be. 


Exclusive oring (KOR) 


This is another technique which is used extensively throughout this 
book. The use of XOR enables information to be superimposed upon 
the image which is already on screen. Performing the XOR again will 
remove the image, leaving the background as it was. 
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Examples of the commands required to implement this powerful 
feature can be found throughout the listings. The Chess Duel 
program contains some superb examples. 

You will find it useful to use the listings as a source for solutions to 
programming problems. Try to understand the reason that certain 
routines are used and how they work. Once the programs are fully 
working and saved on tape then it is recommended that you 
experiment. Change the colours or parameters and see what happens. 
This way you can learn more about programming and be able to 
incorporate what you learn into your own programs. This is the most 
satisfying aspect of having your own computer. 


Some general problems 


Improper arguments 

The great majority of readers’ queries have concerned the error 
message “IMPROPER ARGUMENT”. This is when a recognised 
command cannot be executed. In particular, it occurs on SYMBOL 
AFTER instructions. The reason is that if this is attempted twice (i.e. 
because the program has already run once), the ram top will already 
be set and so the error will result. 

The solution is, first, don’t run the program until completed and 
saved. If, however, you have mistyped something and the program 
breaks out, then ‘DO NOT RUN’ again after correcting the error. 
Instead it is best to ‘fool’ the machine into re-setting by starting a 
‘LOAD’ sequence. This may be done most simply by holding down 
‘CTRL’ and pressing ‘ENTER’. This will produce the ‘press play’ 
prompt. Next, use the escape key to break out. The program can then 
be run again. 

Unfortunately, the IMPROPER ARGUMENT is a feature of 
Amstrad’s operation which is not easy to overcome, other than as 
described above. 


Syntax errors 

When the machine gives a syntax error it does not mean that the 
listing is wrong. Follow the hints given in the book to resolve any 
problems. Take particular care entering DATA lines since this is far 
and away the most common cause of programs not functioning as 
expected. 


Subroutines 


Short Cuts to Success 


We estimate that the total memory used by all the listings in this book 
is over 200K. It has therefore been essential to reduce the amount of 
entry to a minimum. 

This has been done by the extensive use of subroutines. In 
particular three routines are used extensively. 


|. High Score. This basic program takes the score achieved by our 
player and compares it with those already in its array. If the new score 
is higher than one in the table then the opportunity is given for the 
player to enter his nickname, initials or whatever. This routine should 
be typed in as listed here and then merged with the appropriate game 
when required. 

Changes will be required to some programs, as follows. Type in the 
replacement lines given for each program. 


Rainbow Breakout: 26109 GOSUB 60009:GOTO 1600 
Maze Maniac: 33040 GOSUB 69000:GOTO 1000 
Parrot: 195 SC=PO*1@ 
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200 GOSUB 609000:GOTO 25 
Pick Man: 35010 GOSUB 60000:GOTO 190@ 
Kinkey Dong: 6005 GOSUB 60000:GOTO 1900 
Hi-Lo and Skippy need no additional lines. The subroutines 
should just be merged in. 


THIGH SCURE? 


60000 MODE 1: BORDER @:PAPER @:PEN 2:CLS: 
re=@ 

£0060 PRINT: PRINT TARC6.0; "High Scores fo 
ro" js yams 

60070 PRINT: PRINT 

£0030 FOR a=1 TO 3S 

60090 PRINTIPRINT TAR(Cd>jyazg"-- +e "Sraht(a)d 
3 TABC 39) 35 c0Ca) 

6£401@@ NEXT a 

60110 FOR a=S TO 1 STEP -1 

6@12@ IF sc*sco¢a>d AND sctiscoCa-1) THEN 
re=a 

6@130 NEXT 

601d@ IF re=@ THEN 60430 

60150 FOR a=d TO re STEP -1LlinatCatl)=nas 
Cad iscocatid=scota) =NEXT 

640160 nat red =""Isco Cre) Hse 

60170 CLS:PRINT? PRINT TABCG)3;"High Score 
s§ for "sgam$ 

640130 PRINT: PRINT 

60190 FOR a=1 TO &S 

40200 PRINTSPRINT TARCd) sag"... -"GnatCad 
3; TARC3@) 35 cola? 

60210 NEXT a 

60220 PRINT: PRINT" Please enter yo 
ur name "iné="ARCDEFGHIJELMNOPORSTUVWXYZ 


“ ] i) 
60220 PRINT:PRINT TABCS) pngix=o 
60240 PRINT? PRINT" J o-+. End." 


60250 LOCATE x,19%:PRINT"-" 

602640 LOCATE 10,22:PRINT nagCre) 

640270 GOSUER 29@O@ — 

640250 IF le=1 AND x25 THEN LOCATE x,19!P 
RINT " "ix=x-1 

60290 IF ri=l AND x33 THEN LUICATE x,19: 
PEINT " " 


as 
Hi 
* 
+ 
_ 
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E0308 


EN 603 


460310 
ms, cx 
60320 
SO3350 
E0500 
E0350 


IF fi=i AND MID#(n$, ¢x-4d),19="J"TH 
Aa@ 
IF fi=i THEN nat¢Cred=nas(Cre)+MID$¢ 


=-4),1) 


IF LEN(na$(re)=15 THEN 60240 

GOTO 40250 

MODE 1:CLS 

PRINT:PRINT TARC693; "High Scores fo 


ro" sqams 


LOREO 


60370 
STAR: 
E0590 
60400 


PRINT: PRINT 

FOF a=1 TO & 

PRINTSPERINT TARC4 >. gag" ee ee "Gnas cad 
20) 35co0Ca) 

NEXT a 

PRINT&PRINT " Press FIRE to play 


again." 


60dO5 
60410 
6é@d15 
E0420 
40430 
E444 


2. Inkeys. 


ag="" 

GOSUB 29@@O:IF fi=il THEN 640420 
GOTM 464410 

FEE TLIFIN 

IF scxsce¢l1>) THEN 40340 
re=1:GOTO 6@135@ 


This is a machine code subroutine used to enable the 


joystick or the cursor pad to be read very quickly. The routine is 
poked into memory by a short program to avoid difficulties which 
may otherwise be encountered. 

Type in the routine as listed and then save to tape. Then whenever 
required it can be merged into a program. Each listing clearly shows 
when the routine is required. 


2) 
3000 
O19 
#2) 20 
IAS 
he 
Ola 
FOE 
FaT7Oo 


bs 


JBI po Ba 
es a 


Lt o vo 


o 


hs i 
xo 


7INEEYS? 
FEM 3533222 inkeys/joy 
le=@:; 1=Oiup=Oido=Orfi=Oie 


CALL addrt+ita=PEEKCaddr) 


t 


IF a=8 OF a=2de2 THEN le=1 
IF a=9 OF a=2d3 THEN ri=t 
IF a=11 OF a=2d@ THEN up=1 
IF a=1@ OR a=2d1 THEN do=1 
IF a=55 OF a=22d THEN fi=1 
IF a=13 THEN q=1 
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270280 IF a=Se THEN ex=1 

290970 RETURN 

29dS0 poke inkeys <<i¢cqece 
27508 c=INTCaddr/256) th=addr-256xc 

2IS10 FESTORE 29280 

29 FOR n=addr TO addrt+is 


27! FREAD atIF a=999 THEN a=h 
25 eee IF a=998 THEN a=c 
SO PORE mya 
556 NEXT 
S70 RETURN 


aa 
te! 

29SSO DATA 9,62,0,50, 999,998, 205,27 
Z9S9@ DATA 187, 205,50, 999, 995,201 


3. Char Check. This is another machine code routine used 
extensively in this book. Its purpose is to place the ASCII value of a 
character cell into the BASIC variable‘CH’. It is used after the cursor 
has been positioned using LOCATE x,y. It is called by ‘GOSUB 
30900". 

This enables a program to detect whether two items have collided 
or perhaps whether the ‘ball’ in Rainbow Breakout has hit a brick. 
Once typed in and saved the routine is merged wherever indicated 
within a program listing. 


ICHAR CHECK? 


29930 REM }>>>>33>> char check <<<¢<eee 
3000 CALL locatl 


20010 ch=PEEKC loca) 
20020 RETURN 


SOd50 “> poke check ¢ffeedee 
3050@ c=INTCloca/256) th=loca-256%*c 
SO@51@ RESTORE S3Os5a@ 

30520 FOR n=loca TO locati3 

30530 FREAD atIF a=9979 THEN a=h 

3@5d0 IF a= v9 THEN a=c 

3Q@S50 PORE mya 

ZO@560@ NEXT 1 

SO570 RETURN 

SOS58O0 DATA 0,62, 204,590,999 ,995 
30590 DATA 187,2903,50,977, 775 
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Subroutines are used extensively for other programs in the book. 
These are listed along with the main programs where applicable. 


Draughts/ Chess. The board and other common routines can be 
merged as indicated. 

Dice games. The dice throwing routine and the other three games 
are designed to form one whole program with menu selection for 
each game. 

Card games. The ‘card core’ can be used in each game as directed. 


How to merge 


If it is wished to merge a set of routines into an existing program: 


|. First save the program which is in the machine. 

2. Next cue the tape containing the ‘Merge’ file. 

3. Type MERGE “” and ‘Enter’. Then press Play on the tape deck 
and follow prompts. 

4. When complete, ‘Save’ the new program before ‘Running’. 

5. The program should now be ready. 


Sometimes you may prefer to load in the subroutine program first 
and then simply add the new lines to it. 

Once you have entered the subroutines and stored them on tape 
you are advised to try them out ina suitable program. A good one to 
start with is Rainbow Breakout in the classic games section. 


[ 
Marie Celeste 


An Adventure at Sea 


In this text adventure you find yourself moored alongside the 
legendary ghost ship. 

What is the secret of the Marie Celeste? Where are the crew? 

By giving commands to the computer you can solve this marine 
mystery. By mixing up the text in the listing, care has been taken not 
to spoil your fun. In this way it is hoped that you will not be able to 
guess the solutions to the puzzles as they are typed in. 

It is usual for adventures to require North, South, East and West as 
directions, but since this one has a nautical setting directions are: 
Forard, Aft, Starboard or Port. Which, in case you do not know, are 
equal to front of ship, rear of ship, right looking forward and left 
looking forward respectively. 

As you move it is a good idea to draw a map. This map will help 
you to find your way around or identify locations that you have not 
yet visited. 

Two-word instructions such as ‘Take bucket’ are accepted or the 
direction may beshortened to FOR, AFT,STA and POR. Adventures 
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often require the player to enter :: INVENTORY’ to see what is being 
carried. In this adventure the inventory is permanently displayed. 
One of the enjoyable (but often frustrating) aspects of adventures is 
trying lots of different ‘verbs’ to see if they have any effect! Common 
verbs for adventures are: get, take, down, up, climb and unlock. 
Whilst you are on board, try lots of different ones. Try ‘Examine cat’ 
at the right time and see what happens. 

Once you have solved the adventure invite others to play it. It is just 
as satisfying watching someone else make the same mistakes and 
perhaps have the same success as you. 


1 REM <<< Marie Celeste <> ISSI/JIM 

2 REM 

500 GOTO 2yOa®@ 

194 RESTORE 1200 

1910 FOR n=1 TO 6 

1020 FOR m=z TO do 

1920 READ atLOCATE m,n 

19@4® PRINT CHE a); 

1@2@ NEXT m 

1960 NEXT vr 

1190 RETURN 

120@ DATA 158,154,15%,154,156,32,32,32,3 

232,52, 32,32, 32,52, 52,32, 52,52, 52,150, 1 

Sd ,156,32,32, 52,156,352, 32,32,52,52,32,14 

9,352,352, 352,532,352 

121 DATA 149,32, 149 152,149 ,32,32,32, 52, 

$232,352 532.22 32, 32582552 149,32 
,1d9 32, 32,532,149, Ro Bo Bo Rey hey BE IS 
15d, 32,32,52,32 

122 DATA 149,22,149,32,149,32,150,154,1 
56,32,158,154,156,159,32,150,154,1546,32, 

32, 149,32,32,150, iS, 156,1d49,150,15d,156 
,150,154, 156,149,32,150, 15d, 156,32 

1230 DATA 149, 32,149,32,149,32,32,32,149 
»32,149,3 2,32,149,32,151,154,153,32,32,1 

fe iSd,153,149,151,154d,155,149 

32,153,149,32 (151, 154,153,32 

1z4® DATA 149, 32,149, 52,149, 32,150,154, 1 

57 32,149, 32,32, 149,32,149,32,32,32,52,1 

49 ,32,32,149,32,32,149,149,32,32,147,154 
,156,147,352, 149, 32,32,32 

125 DATA 155,32,155,52,195,32,147,154,1 


55,32,155,32,32,155,32,14d7,154,155,32 
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pid 7, 15d, 153,147, 15d 153,155,147, 154,155 
yid7,15d,1535,147, 153,147, 134,153 
is 1a RETURN 


Ld7EO 
ZOOD® 
ZOO1® 
ZOOZO 
ZOOS 
ZONA 
29050 
ZOVE@ 
ZaOBT7O 
ZOOS 
2O1LM® 
ZOFWSD 
21000 
21014 
214020 
21920 
21100 
Z11ii1l®@ 
2LL20 
ZLLZS 
21120 
Z1lido@ 
21150 
21160 
21170 
2LLE@ 
ZLZO® 
Z1ZOS 
ZiZz1% 
21215 
21220 


21240 
21245 
21250 
21255 
21260 
21265 
21279 
21275 


REM Shel eas screen “{<atacdadd< 
INK @,3:INE 1,2@:INK 2,0: INK : 
MCIDE 1 

BORDER @:PAPER 2:PEN 3:CLS 
WINDOW #1,1,290,5,16 

WINDOW 424 ,29,17,25 

WINDOW #3,51,490,8,25 

PAPER #1,@:PEN #1,1:°CLS #1 
PAPER #2,2:°PEN #2,3:CLS #2 
PAPER #3,3°PEN #3,@:CLS #3 
FRE TURN 


REM $3322233> initialize <<<<<<<< 
DIM 4¢10,7) 

DIM o#¢11) 

DIM m¢1@,d) 

DIM 011) 


FESTORE 21200 

FOR n=1 TO 14 

FEAD d¢n, lo ,dcn, 2d, ,d¢n,3)9,d¢n,4) 
READ din cececice ogden, 7) 
READ m(n,logm(n, 2) mCn,ys)smcn,d) 
NEXT 

FOR m=1 TO 11 

READ of (rm) ,oCM) 

NEXT wn 

FE TLIFIN 

DATA 1,5,19,11,20,0,0 
DATA @,9,9,@ 

DATA 12,26,22,9,9,9,@ 
DATA 1,1,9,9 

DATA 13,16,1,27,4,30,20 
DATA 1,9,1,9 

DATA 13,14,3,25,9,9,9 
DATA ©,1,1,9 

DATA of 1,35,3,33,0,0 
DATA @,1, Q, a 

DATA 11s. ,11,240,9,9 

DATA ®,9,%,9 

DATA 2°30,20,13,15,22,16 
DATA 1,9,1,1 

DATA 530,20, @,4,9,0 
DATA @,9,1,@ 
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SLES 
Ziz@S5 
2LZ90 
21295 
21200 
ZLZ194 
Z2IR20 
ZLA30 
213d 
ZLZa@ 
213460 
Z1LB70 
21320 
ZListva@ 
Z21d0@ 
Z21I7S0 
ZLOOD 
22910 
22020 


ND ags< 


DATA 
DATA 
DATA 
DATA 
DATS 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


®, @, i, @ 
KNIFE 56 
TARPAULIN, 1 
WATER CIN DECK,2 
RICIPE , & 
NOTE, 
BUCKET ,d 
KEY,® 

CAT, 

MOP, 
WELLIES,© 


3 
1 
Oe iy nr gs SP 


DATA HOOKS 52 

FEM $e RP EDR Llnput 
m$="""EPRINT #2°PRINT #2,"3"5 
at=INEEY$: at=UPPERS Cat) 

IF Case" A" OR ate"Z"YAND afer" " A 
CHES C1239 AND afirCHREé¢127) THEN G 


Se i Ce OL 


ATO 22010 


229030 
22035 


SOUND 1,150,2,15 


IF aS$=CHR#¢127) AND m$=""" THEN GOT 


Q 22010 


22040 


EN(m$)-1)2PRINT #2, CHRS(S) 5" 


THEN m#=LEFT#¢m$,b 
"SCHR CS) 5 t 


IF at$=CHR$ (127) 


GOTO 22014 


2205 19) 


IF at=CHRE$¢(13) THEN PRINT #2, CHES ¢ 


12) RETURN 


22060 
220790 


ZEORO 


2350d0 
ZEORO 
25060 
ZRaTO 
ZEIAO 
21000 
ZA@LO 
24020 


M$=Nn$ta 
PRINT #2,a%; 
GOTO 22010 
REM o> >2>>2 >>> 
CLS #3 

PRINT #2," INVENTORY."35 

PRINT #23, "----~------ 

PRINT #3:°PRINT #3 

FOR n=1 TO 11 

IF o€m)=13 THEN PRINT #3 ,0%¢1) 


inventory *2ee2gdg 


split <<<cceended se 
VSe"" an 
FOR m=1 To LENCm#) 
IF MID$¢m$,n,io=" " 


THEN GOTO 2d@6 


1) 


ZdO@20 NEXT nn 
214040 vt=mh 
ZA@5O0 RETURN 


24060 vS$=LEFTS (mst 


grin 1) 
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249070 n$=RIGHTS (mS, LENC mS) —r > 


24050 RETURN 
249780 FEM >; 
25000 GOSUB 22000 
229010 GOSUB Zdoo@ 
25020 CH=LEFTS( vs 
25030 IF C$="Pda" 


250d IF C#="ST" 
25050 IF C$="FO" 
25060 IF CH$="AF" 
25070 IF C$="GE" 


49000 
25Q0380 IF 
Sao 
S509@0 IF CH$="EX" 
HEN GOSLIB 
25100 IF 
TOD 
Zalio IF 
225120 IF 
2a13@ IF 
25140 IF C#="LO" 
25150 IF C#="SH" 
HEN GOSUB 41000 
ZI1L1E@0 CH=LEFTHI VG 
25170 IF C$="SGWA" 
42000 
SRBLaa 
43000 


25190 


Cs="Gq" 


C$="UN" 


CH=" Cli" 
C$="CL" 
C$="KI" 


IF C$="MaV" 


IF V$="QUIT 


25200 IF ve=""" T 
Z25Z1@ PRINT #2, "1 


GOSUBR 2aaoo 
GOTO 2500@ 


cael =o a 
cet 


25230 


Z259BO REM >>>3>> 
26000 GOSUE 27000 


2610 
26015 
26020 


GOUSUB 2Ooao®o 
GOSUB 10@@ 
GOSUEB 21000 


te? command 


32) 

THEN GOSUB 
THEN GOSUE 
THEN GOSUB 
THEN GOSUE 
OF C$="TA" 


QF C$="EN" 


OF C$="IN" 


aR C$="C1P" 
THEN GCISUIE 
THEN GUSLIB 
THEN GOTO 

THEN GUISLIB 
OR C$="FU" 


aS) 


CF 


CR 


" THEN GOTO 


S220 


HEN GOTO 
don?t 


C$="MOP" 


C$="LIF" 


wit ot ol at 


ZOOOD 
31LOOoo 
REOOO 
RSOOO 


THEN GOSUB 


THEN GOSUE 


OR C$="RE" 


THEN GOSUB 3 


SaOOD 


AVAOD” 


AO5aa 
CIF: CH$="RA" T 


THEN GOSURB 


THEN GUSUEB 


A4Idooo 


understand «.« « « 


'GUSUB 23a0a 
Per? start Lancing ceds 
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26030 GOSUB 23000 

ZE@dO pore 

261900 RETLUFN 

26980 REM $3333 233 >> strings “<<ciideds 

27000 DIM w#$(36) 

27010 RESTORE 2706@ 

27020 FOR n=1 TO 36 

27930 READ w$ (1) 

27040 NEXT n 

27050 RETURN 

27060 DATA I AM ,ASTERN,FORARD ,PORT ,ST 

ARBOARD ,UP ,DOWN ,IN A ,SMALL ,LARGE 

27@70 DATA “BOAT, ALGNGSIDE ",THERE IS , 

THE WIND ,HOWLS ,SINGS 

2708@ DATA SCILINDS LIKE LAUGHTER. ,GUTSIDE 
»sINSIDE ,IT IS ,THE MARIE CELESTE. 

27090 DATA A ,AND ,HERE-,AND I ,SLIDE ,A 

CROSS ,LOCKED ,UNLOCKED ,TO ,OF ,IS ,I §S 

EE ,STORES. 

2719@ DATA GAP ,THE ,WATER CIN THE DECK. , 

DEVIL, BERMUDA TRIANGLE,ATLANTIS 

279730 REM 3ooo oe eee describe <ccededes 

23000 CLS #1 

23005 IF po=2 AND o0(1@)2£513 THEN PRINT # 

2y"You slip through to the":PRINT #2, "ne 

xt deck section !"tpo=S:SOuUND 2,200,10,1 


BaOOT LF po=i AND 0¢(2)=@ THEN GOTCU diaoo 
29010 FOR n=1 TO 7 

ZE020 PRINT #i,swhCdCpo nog" "5 

25030 NEXT nn 

Z2QOd®@ PRINT #1 

23050 PRINT #1 


23060 PRINT #1," I can see -" 

25070 FOR n=1 TO 11 

Z2EOS0 IF o€n>=po THEN PRINT #1,0%¢n 5", 
bf 

29090 NEXT 1 

23100 RETURN 

20980 REM Foe ooRS begin game <<ccecids 

27900 GOSUB 2400 

27@1@ GOSUB 2h00@ 


29020 GOTO 250a@ 
@ REM 323333323 commands <<¢edeedds 


Nh 
“Lt 
L! 
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30000 vS=""" 

SO@1@ IF mCpo,d)820 THEN GOTO 20020 
30015 PEINT #2,"You cannot go that way." 
tRE TURN 

30020 IF mCpo,d)=1 THEN po=po-S: RETURN 
30030 a=m(po,d>ta=a-lLiIF o€a2=13 THEN PR 
INT #2,"You use the “so#Ca)tPRINT #2, "an 
d go to port." ELSE GOTO 30015 

SOO4d@ FOR n=1 TO S@@@2NEXT v1 

390030 po=po-S:kKE TURN 

31000 vg=""" 

S1i@1O@ IF m¢po, 2.220 THEN GOTC 31020 
S1@15 PRINT #2,"You cannot go that way." 
*RE TURN 

31920 IF mCpo,2)=1 THEN po=potSi Re TURN 
31930 a=m(po,2)ta=a-1lLiIF o€ad=132 THEN PR 
INT #2,"You use the "so#Ca)iPRINT #2,"an 
d go to starboard." ELSE GOTO 31415 
31440 FOR n=1 TH S@@@INEXT vn 

31050 po=pots: RE TURN 

22000 voet" 

S2010 IF m(po,1)22@ THEN GOTO 32020 
32015 PRINT #2,"You cannot go that way." 
[RETURN 

B2@20 IF mCpo,1)=1 THEN po=pot+li * RETURN 


32030 a=m(po,l>ta=a-LilF o€ad=13 THEN PR 
INT #2,"You use the "so$Ca)iPRINT #2, "an 
dogo to forard." ELSE GOTO 32015 

S20d@ FOR n=1 TO S@O@zENEXT vn 

S29050 po=potl: RETURN 

33000 vss" 

32010 IF m¢€po,2922@ THEN GOTC Saa20 
Z3@15 PRINT #2,"You cannot go that way." 
SRE TURN 

32020 IF m¢(po,S)=1 THEN po=po-1t RETURN 
Z3Q030 a=mCpo,s)ta=a-LiIF o€ad=12 THEN PF 
INT #2,"You use the "so Cad SPRINT #2, "an 
d go to aft." ELSE GOTO 323015 

S20d@ FOR n=1 TO S@@@:INEXT vn 

33050 po=po-1likRE TURN 

SdO0O vee" 

34010 FOR n=1 To 10 

Sd020 IF n$=o%(n> THEN GOTO 24060 

34030 NEXT n 
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Sd4@d@ PRINT #2,"Don’t ke silly !" 

34050 RETURN 

34960 IF n=d THEN PRINT #2, "It’s tied to 
o tightly for me !" RETURN 

2407@ o€nmj=13 

Sd030 PRINT #2,"You take the "jso0S (rn) 
34090 RETURN 

SIMO vse” " 

S5@1@0 IF n$te"STORE" AND N$2e"STORES" TH 
EN PRINT #2,"You carmot go there .« 2. «" 
RE TURN 

S5@2@ IF m€1@,4)=@ THEN PRINT #2, "It's 1 
ocked ! "RETURN 

SS2Q0S@ po=iskKE TURN 

S6000 yea" 

S6@1@ FOR n=1 TO 11 

36020 IF mn$=of (n> THEN GOTO 36060 

S6éQ@230 NEXT 

360d PRINT #2,"I don’t see that here." 
56050 RETURN 

ZE060 IF n=1 THEN PRINT #2,"It’s sharp ! 


S6E070 IF n=2 THEN PRINT #2,"It’s green ! 


36080 IF w=S THEN PRINT #2, "It’s wet & 5 
alty !" 

36090 IF n=d THEN PRINT #2,"It’s tied ti 
ghtly." 

S619@ IF n=S THEN PRINT #2,"It says ~"iP 
RINT #2,"’No need to go below":PRINT #2, 
"decks in this game-’?" 

36110 IF n=6& AND 0(€7)=@ THEN PRINT #2,"I 
t’s rattling !"to0C7)=po 

36120 IF n=& AND 0(€7943@ THEN PRINT #2," 
It’s empty !" 

S6130 IF n=7 THEN PRINT #2,"I1t says *STO 
RE?" 

S6é1d@ IF mn=& THEN PRINT #2,"It runs off 

with a dead rat."ioch)=oa 

S615 IF n=9 THEN PRINT #2,"1It’s soggy ! 
S6160 IF mw=1@ THEN PRINT #2,"The’re smel 
ly !" 

36170 IF N=i1 THEN PRINT #2,"They seem t 
o ke for a rope !" 
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S6150 RETURN 

37000 ve=""" 

37@1@ IF pot >i@ THEN PRINT #2,"I can’t - 
-" SRE TURN 

37920 IF o€ 794213 THEN PRINT #2,"1I have 
no key !"IRETURN 

S7020 mCpo,d)=12'PRINT #2,"The store is o 

pen." 

S74@d@ dC1@,3)=25 5 RETURN 

SSOO0 vS="""STF o€ 192212 THEN PRINT #2," 

With what $"P RETURN 

335010 IF n$=o%$Cd) THEN GOTO 380d 

S3O20 PRINT #2,"You sadist !" 

S8030 RETURN 

SS@d@ PRINT #2,"You cut the rope and tak 

e it." 

SEOs ad =15 

S3060 RETURN 

SIOOO vE="""EIF n$teos Cd) THEN vé="BRI" IR 

ETURN 

29@10 IF o¢€d)<op0 AND o€d)2513 THEN PRIN 

T #2,"Where’s the ladder ?"SRETURN 

27020 PRINT #2,"You climb the rope ladde 


SIOSO IF po=& THEN po=7i0(d)=7°RE TURN 
7040 IF po=7 THEN po=6:o0(4d)=6: RETURN 
597050 IF poi THEN po=Zto Cd .=2°RE TURN 
SIOEO RETURN 

49@®®® PRINT #2," An Albatross flies down 
4dQO@10 PRINT #2,"and attacks you for " 
46020 PRINT #2,"being destructive." 
40030 PRINT #2," You Are Dead ! " 

40040 FOR n=1 TO S000 

d@O30 NEXT 1 

49060 SOUND 1,350,190,15 

d@Oo7a@ GOTO ddoao 

40500 Ve=""" 

4@310 PRINT #2:°:PRINT #2,"EXITS ARE 5" 
40520 IF MCPO,1)220 THEN PRINT #2, "FORAR 
D"3 

dOS30 IF MCPO,3)220 THEN PRINT #2,"AFT " 


3 
dOSd0 IF MCPO,2925@ THEN PRINT #2,"STARB 
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OARD "5 

d@S50 IF MCPO,d)<>@ THEN PRINT #2,"PORT- 
d@S6o IF m¢po,12=@ AND m(po,Z)=@ AND m¢P 
0,3)=0 AND m(po,d)=@ THEN PRINT #2, "NONE 


40570 PRINT #2 
40530 RETURN 
4190@ v$g=""" 
41010 PRINT #2," Not now Sailor 
41950 RETURN 
42000 vse’ 
d2@010 IF of(6)9¢2135 CF oC F)25135 THEN PRINT 
#2,"With what you fool . . .«"FRETURN 
d2020 IF pot<>2 THEN PRINT #2,"Not here y 
ou idiot -« .«":RETURN 
d2030 oOCS)=@:PRINT #2,"Well done ! Now i 
t is safe."im(sZ,3)=5 
42040 dQZ, 1 =1LiddZ, 2o=Zid¢se,S)H=2O@8 ds) 
BRZIMAC2, FS H=219°dCS,69=112d¢2,7)=0 
20350 oCL11ID=2°RE TURN bd 
43000 v$e=""" 
42010 FOR n=1 TO 10 
42920 IF nt=o% Cn) THEN GOTO 43060 
43030 NEXT 1 
42940 PRINT #2,"Move what Y ! 7" 
430350 RETURN 
42060 PRINT #2,"You move it,and the" 
43070 PRINT #2,"wind blows it away !" 
42080 o(n)=O 
42070 RETLIRN 
dd@o® CLS #3:°CLS #2 
449010 PRINT #2,"Another Game ?" 
444020 GOSUR 22000 
44036 IF m$="YES" THEN FLIN 
dd44d@ PRINT #2,"Well you’re playing anyw 
ay !" 
44050 FOR n=1 TO 250 
44060 NEXT n 
44970 RUN 
45000 CLS #1 
425010 PRINT #1,"SURPRISE !"SPRINT #1,"We 
hid in "gwécSZlo3" "“sgwScllog" “pwc 2a) 
45020 PRINT #1,"We thought You would" 
15030 PRINT #1,"NEVER solve the adventur 
e tu 
24040 GOTO ddaae 


2 
Please Sir 


A Teaser for Everyone 


This program is not quite what it seems! You may think that you are 
able to guess what the secret of the program is as you enter it, but you 
will still find the game a challenge when you play it. 

The idea is that the on-screen ‘teacher’ selects a subject and you 
must then give examples which fit the subject. For example, if‘ Films’ 
was displayed then you might enter ‘Please sir, is SUPERMAN one?’ 
and teacher may say ‘yes’ or ‘no’! You must try to decide why and then 
enter another example such as ‘STAR WARS’ to which the reply will 
once again be ‘yes’ or ‘no’! The game continues until you achieve three 
‘yes’ replies in a row, when it is assumed that you have realised why 
some get a ‘yes’ and others ‘no’. You can cheat, but that most certainly 
would be a shallow victory. 

Later, when you have mastered playing the program, you may 
wish: to change the rules or add more subjects, and that may be a 
challenge in itself! 

Invite a friend to list the program, and he may be surprised to find 
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that there is a distinct lack of data, whereupon you may either give 
your own reason or offer the following test of gullability: 


‘The program uses an advanced text compacting system based 
upon the mathematical characteristics of letters within English 
words. Thus, careful selection of parameters enables specific target 
answers to be ‘tuned’ into apparently imprecise test routines.’ 


Of course, you will know differently, because you typed in the lines 
which verify the entries! Why then, is a correct answer for the ‘Birds’ 
category: Sparrow, Chaffinch and Swallow? 


1 FEM 
2 REM 
SO@@ S 


s10 5 
199® 
10350 
114 
1150 
1160 
1997280 
Z2OOO® 
ZOO1ID 
ZOOL 
ZOOIO 
200A 
ZAODA® 
ZAOAS 
ZOOE® 
ZOO7TOD 
ZOORO 
2OOWID 
Z010® 
20110 
ZOLZ@ 
20130 
20140 
ZOLSO 
ZOLE® 
572) 

20170 
7z 


scceq please sir 


YMBCL 2d@,128%,64,32,24,6,15, 


“> ISSI/JIM 


112,12 


VMBOL. Sai iS, 74517427, 255, 15,1 


GOSUBR d@soo 
yore 

GUSUBR 2OoOa 
GUSUBR Z2E2Oa0o 
GOTO 24000 


REM 3332 >>>3>> screen 
MODE ® 
PAPER @:PEN 1:BORDEFR &FCLS 


WINDOW #1,13,19,2,9 
WINDOW #2,13,19,11,14 
WINDOW #3,13,19,16, 22 


WINDOW #4,2,11, 


ld ,235 


WINDOW #5,2,11,21,22 


RESTORE 2@0oo 
Fok n=O TO 15 
READ atINE nya 
NEXT ni 

PAPER #1,2:°PEN 
PAPER #2,2:PEN 
PAPER #3,&:PEN 
PAPER #4,7:°PEN 
PAPER #5,7:°PEN 


co 


LOCATE 6,12:PRINT CHRSC2d@) 


#1,4:CLS 
#2,3:CLS 
#5,1:CLS 
#4,d5CLS 
#5,4d:CLS 


PLOT 156,205:DRAW dO,203:DRAW 24, 


DEAW 24,35@:DRAW d@,372:DRAW 140,35 


Please Sir 25 


ZO18@ DRAW 156,35@:DRAW 156,225 
20190 PLOT 35,350,13:DRAW 35,29@:PLOT 65 
,S5@:DRAW 65,230 

20200 PLOT 107,35@:DRAW 77,35@:DRAW 77,2 
BOIDRAW 107,230 

20210 PLOT 150,350,1d4:DRAW 120, 35@:DRAW 

120,290:DRAW 150,290 

ZOZ20 DRAW 150,23@:DRAW 120, 2350:PLOT 39, 
Z3@IDRAW G1, 230 

20230 PLOT 39,Z29@:DRAW 61,29@:PLOT 77,29 
OiDRAW 107,290 

20240 PLOT 107, 350,15:DRAW 107,230 

20250 PLOT 135,34S:DRAW 135,255:PLOT 135 
,24@:DRAW 135,232 

20260 PLOT 35,232:DRAW 35,288:PLOT 39,34 
Si DRAW 63,232 

2027 PLOT 135,290,132 

20280 PEN 9:LOCATE 1,23:PRINT CHRS(2d1) 


20290 PEN 1 

2O30@ LOCATE #1,1,3tPERINT #1,"GUESS A" 

20310 LOCATE #2,2,1:PRINT #2, "TOTAL" 

ZO320 LOCATE #3,2,2:PRINT #3, "GAMES" 

20330 LOCATE #3,3,d:PRINT #3,g0 

Z@EBd@ LUICATE #4,1,2:PRINT #4,"PLEASE SIF: 

"SPRINT #4,"IS IT. . ." 

20350 PLOT 290,210 

20360 DRAW 275, 25@:DRAW 23 

20370 DRAW 290,31@:DRAW 28 
® DRAW 260,34d0:DRAW 

DRAW 220, 320:DRAW 

20d0@ DRAW 230, 305:DRAW 

20410 DRAW 215,280:DRAW 22¢ : 

20420 DRAW 216,275:DRAW 230,270 

20430 DRAW 216,265:DRAW 220,260 

20dd@ DRAW 216,256:DRAW 216,250 

20450 DRAW 220, 2d6:DRAW 260, 24¢ 

2046@ PLOT 2d@,2d6:DRAW 230,210 

2OA7@ TAG #7:IMOVE 220,212 

20474 PRINT #7,CHRS(2d0) 5 

20475 MOVE 250,305 

20478 PRINT #7, "?"3:TAGOFF 

20480 PLOT 225 ,308:DRAW 220,300 

2Od35 GOSUR 21500 

20490 RETURN 
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20500 DATA 6,24,2,15,1,9,15,16 
ZO51@ DATA 4,21,9,17 Sea b ce 

20930 REM 

ZOVIO REM * * * TYES? * * x 

Z2100® INK 13,2d:INK 1d,24d:INK 15,6 
Z1@1@ FOR n=S0®@ TO 10@ STEP ~-Za@ 


214020 SOUND zZyn,5@,12 
21@3@ NEXT vn 
21050 win=wintl 
21200 RETURN 
21d5@ REM 
2idvo FEM * * * 'NO? * * x 
21500 INK 13,2d:1INE 14,625 0INE 15,24 
ZiS1O@ FOR n=200 TO 640 STEP 2a0@ 
21520 SOUND 2,1,590,12,9,0,1 
ZLS2@ NEXT vn 
21550 win=0 
21700 RETURN 
2IVSO REM boob Peo start game ededddd 
22900 win=@: yor=ygorl 
22010 s=INTCREND(C1)*20)+1 
22020 LOCATE #1,1,5°2PRINT #1,5%¢s) 
22030 LOCATE #2,3,3°PRINT #2,tr 
22040 a=t(s,1l)th=t¢s,2)%c=t¢s,5) 
Z2@30 DEF FN ok=ASCCLEFT$(Cat,1))> 
22060 IF a=2 THEN DEF FN ok=ASCCRIGHT$(a 
$,1)) 
Z2070 IF a=S THEN DEF FN ok=ASCCMID$ (ad, 
i  ) 
B2@S0 IF a=d THEN DEF FN ok=LENCat) 
22090 IF a=S THEN DEF FN ok=spth 
B210@@ IF s=z THEN DEF FN ok=ASCCLEFTS CRI 
GHT$€at,2)>,1)) 
paceman RE TURN 
2930 REM 333o32 RRR input secede’ 
239000 a$=""iEsgp= 
23010 CLS #5:PRINT #5,a% 
2359020 wh=INEEY$ -wS=UPPERS (ws > 
235025 IF wH=" " THEN spespt+ist GOTO 2306@ 
23630 IF wt=CHRE$¢12) THEN GOTO 23130 
23040 IF w$=CHE$¢127)>) AND LENCat)?@ THEN 
a$=LEFT$(at,LENCas)—-1)2GOTO 23070 
23050 IF wti"A" CF w$2"Z" THEN GOTO 2302 
2) 
23060 at=at+wt 
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23979 SOLIND 2 ’ ZOO,1M,12: GOTO 23@10 
2A1L3@ a=LENCat) 

231d@ IF ati THEN GOTO 23000 

25150 SCUND 1,400,350, 97:S0UND 1,200,20,% 
Pole, re=FN ok 

= REE TURIN 


ee a oe ea ee 


AUS A Ss as ssa, 


25 REM 3oo ooo 
24000 GOSLB 23g a 
24005 IF at$="GQUIT" THEN FLIN 
24019 IF re=c THEN GOSUB 21@0@ ELSE GOS 
BK 21500 
24d@20 LOCATE #2,3,3°PRINT #2,win 
24030 IF win=3 THEN GOTO 23500@ 
242590 GOTO 2d0ao@ 
24980 REM 33oe ooo RO 
223000 MODE 1 
25@1@ LOCATE 12,3:PRINT "CONGRATULATICNS 
tu 
25020 LOCATE 11,4:PRINT STRING#(18,45) 
25020 LOCATE 9,1@:PRINT “You solved the 
puzzle !" 
25100 LOCATE S,223:PRINT "Press ’Y’ to pl 
ay ayain" 
ZE110 at=INKEY$: at=UPPERS (at) 
25120 IF até="Y" THEN GOTO 110@ 
25130 GOTO 25119 
S99SQ REM #oooR PEPE? Subjects *kecdcedde 
44000 DATA DOG,ACTOR,STAR,TV PROG,FILM,P 
LAY , SCING 
A001 DATA MICRO, COLOUR, FLOWER, TREE,GEM, 
BOK, SPORT, BREAST, BRIFD,PLACE 
40020 DATA FISH,NAME, CAF: 


ph gh oo 
a 4 “, < a < a. 4 
LAN 


40@50 DATA 2,1,75,1, 253825352579 Syl y2 
40060 DATA 1,1,83,5,9,4,5,5,6,4,1,& 

40070 DATA 4,1,4,2,1,80,d, 1535251568 
40080 DATA 5.2,053,3.67 93453 25,5,5,65 


9 +] 4 
40090 DATA 2,1,52,3,2,65,3,2,65,4d,1,6 
49500 RESTORE dAaoo® 
49035140 DIM s#¢C 20) 
d4@S20 FOR n=1 TO 2a 
40530 READ s#$(n) 
d4@5d@ NEXT mn 
40550 DIM t¢2@,3) 
40560 FOR n=1 TO 2a 
4103570 READ tcn,1)>,tcn,2),t¢n, 3) 
pins NEXT nm 


ADE Oe OO THIEN 


3 
Il Accuse 


‘SRean Lema! orm. a ta 
FRE. LORGE. LARGE LARK 
BRA HOCK AE MOCK 
WALL IEG MELLTES PUPS pmes 


VOR BABihen VRRBE Pies 


the 
ae he 


fou mest now wnt 
crete you cons 


ee wml ted 


EE = EGS a? AE eat 64 Ok 


iE & eyes sero nktp 
S RAGE MAD 


A Suspicious Listing 


This is a test of deduction which will challenge all budding sleuths. 

You are Inspector Watkins of CID (Computer Investigations 
Department) and are presently undertaking an extensive training 
course. This training is designed to test your courage and endurance. 
The course also tests your intelligence and ability to use the computer 
in criminal detection. Since we cannot cover the courage and 
endurance section in this book, we have included the computer 
deduction test. 

The computer has the ability to generate thousands of different 
permutations from a set of data. Inthe blink of an eye it will decide on 
the criminal and his corroborative details, together with the 
statements of a witness that will conclusively point out the guilty 
party. You are allowed to ask for only six sets of details. This is done 
by entering the number corresponding to the category on the left of 
the screen. The computer will display them and then display the 
statements of key witnesses. This could be enough to identify the 
correct suspect, if you requested the right data! 
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The number of the suspect that you believe to be the criminal is 
entered and the accuracy of your judgement is reported back. 

This program could well have educational value, but most of all it 
is designed to be different and fun. 


1 REM <<ee<e IT ACCUSE ISSI/JIM #22>3e2°% 

2 REM 

190 GOSUR 22000 

1290 GOSUER 20000 

150 GOSUBR 21000 

16400 FOR g=1 TO 6 

16410 GOSUEB 2300 

16420 NEXT gy 

1629 CLS #2:PRINT #2,"You must now enter 
the number of the suspect you consid 
er to have commited the crime." 

1440 PRINT #2°PRINT #2," The witness 5 

aid that .« .« .« . " 

16450 RESTORE 170@ 

1660 FUR n=1 Ta 10 

16470 READ at 

1680 IF widen OR wC2o=n OR wCS =n OF we 
d)>=n THEN PRINT #2,"The criminal "“jas5" 
"sss yr) 

14°99 NEXT n 

179@@ DATA was a,was,was,’s hair was,’s fh 

air was,wore a,’s shoes were,’s eyes wer 

e,’s nose was,had a 

1719 RESTORE 1720 

1720 FOR n=1 TA 12 

1730 READ a,beSOUND Z,a,hb,is 

174d@ NEXT 

1744 DATA 190,25 ,200,25,300,25,d00,25 
1746 DATA 200,25,300,25,4d00,25,500,25 
1743 DATA 300,25,4d00,25,500,25,600,25 
1750 aS=INKEYS:IF ate"1" OR a$e"d" THEN 

GUTA 1750 

1760 cr=VALCae) 

177@ SGUND 2,6@0,50,15°SQUND 2,4d00,50,15 
SOUND 2,200,50,15 

1730 CLS #2 

1790 IF cr=s THEN GOTO 300® 

Z20@@ PRINT #2,"You’re pathetic, *Inspect 
or’? Watkins -»- No ! I will demote you to 
P.C. Watkins! " 
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2010 PRINT #2:PRINT #2 

2020 PRINT #2,"It was suspect number 
feos 

2050 GOTO 3050 

3000 PRINT #2," Congratulations, Inspect 
or Watkins !" 

2010 PRINT #2°PRINT #2,"You correctly de 
duced the true criminal from the clues gy 
iven-" 

S@S5Q@ LOCATE 6,25°:PRINT "Press any Key to 
Repeat Game" 

3060 CALL &BROS 

3070 aS=INKEYS2IF ag="" THEN GOTO 2070 
3030 SOUND 2,100,50,15 

3990 GOTO 1200 

19980 REM $e >e >Re RRS creenicdtedec dads 
29000 INK @,@:INK 1,2@:INE 2,6:INK 3 

20010 BORDER @:PAPER @:PEN 1:MOQDE 1 
20020 WINDOW #1,10,d0,3,12 

29@30 WINDOW #2,1,d0,15,24 

2904@ PAPER #1,@:PEN #1,1°CLS #1 

20050 PAPER #2,@:PEN #2,3:°CLS #2 

20060 PEN Zino=1 

29@7@ FOR n=12 TO 36 STEP & 

20030 LOCATE nmy,liPRINT no 

Z2OO9O nro=notl 

20100 NEXT 

20110 RESTORE 20100 

20120 FUR n=3 TO 12 

2@13@ LUCATE 1,1 

2901d@ READ at:PRINT at 

2@15@ NEXT wn 

20160 DATA @-SEX,1-BUILD,2-HEIGHT ,2—-HAIF: 
54-7 COL, S-ATTIRE ,6-SHOES, 7-EVYES,S-NOSE, 
F-SPECIAL 

20170 PRINT #2,"Choose your question (@- 
Bh 6 ea ae" 

Z2O@500 RETURN 

20930 REM $oEESD PEP eset upix<ececdddgcne 
2100® RANDOMIZE TIME 

2190190 s=INTCENDC1)*4)+1 

21020 FOR n=1 To 4 

21922 wn =a 

21924 check=0 

SL1@25 a=INTCRND(1)*10)+1 


" 


53 


ZLOA® 
219032 
21903d 
Z1L@SS 
21O37 
ZA@A® 
21050 
21960 
21070 
Z1LOBO 
21970 
Z1L14@ 
ZL11@S 
150 

2111 
250 

Z1L1L2® 
21150 
21160 
2117@ 
21130 
ZLLI® 
ZL2O® 
Z1IZ1i® 
ZLZ2O 
ZLZ20 
Zizd@ 
SLES 
212460 
Z127@ 
2LEEO 
21290 
21300 
Z1S1® 
21320 
213230 
21S3d0 
21500 
Z21LS519 
S1LS20 
SLA30 
215d 
21550 
2LS460 
21570 
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FOR q=1 To 4 
IF wCq)=a THEN check=1 


NEXT 
IF check=1 THEN GOTO 21024 
wr )=a 
NEXT vr 


FOR m=1 TO 10 

FoR q=1 Tao 4 

a=INTCRND(1)*4)+1 

s$Cq,no=1l$(rn,ad 

NEXT 

NEXT 1 

n=wC1>:GOSUB 21150in=wC2)'GOSUB 21 


n=wCS)'GUSUBR Z11LS@in=w¢d>tGOSUB 21 


RE TURIN 

RANDOMIZE TIME: a=INTCREND(1)*d)+1 
s$Cs,nd=1l$Cn,a) 

test+2:IF ted THEN t=t-d4 
s$Ct yn d=1lECn,ad 

IF at>?i THEN b=a-i ELSE h=d 
t=t-2:1F tei THEN t=t+d 
Ss$Ct sn =1$Cn,h)d 

t=t-Z2:1IF tei THEN t=t+a 
s$Ct yn H1$¢n, bh 

RE TURN 

RANDOMIZE TIME? a=INTCRENDC1)>*4)+1 
s$CS5 =H LECry,ad 

IF s¢+1 THEN t=s-1 ELSE t=d 
s$Ct yn =1l$Cn,ad 

IF atid THEN b=ati ELSE b=1 
t=t-1:IF t=@ THEN t= 

s$Ct no=H=1ls¢n,b) 

t=t-1:IF t=@ THEN t=d 

s$Ct nI=1E¢n,h) 

RETURN 

DATA MAN, BCY ,WOMAN, GIRL 

DATA FAT, THIN,SLIM,STUBBY 

DATA TALL,LAFRGE , SHORT ,STOCPED 
DATA NORMAL ,SHORT, CURLY ,LONG 
DATA BROWN, BLACK, BLONDE , GINGER: 
DATA JEANS, SUIT, JACKET, CLOAK 
DATA PUMPS, BOOTS ,SANDLES,WELLIES 
DATA BLUE,BRROWN, GREEN,HAZEL 
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21580 DATA SMALL,LARGE, BROKEN, CROCEED 
2159@ DATA TATOU,FRECKLE,DAGGEF , GUN 
21600 RETURN 

Z1I9VSO REM 3oo>>>>>?initializec<<cdseeds 


22000 DIM s#(4d,19) 
22010 DIM wd) 

22020 DIM 14¢€¢194,d4) 
ZEO5@ RANDOMIZE TIME 
22060 RESTORE 2150@ 
22070 FOR n=1 TO 10 
22030 FOR m=1 TO 4 
220970 READ 1¢$¢rn,m) 
22100 NEXT m 

22110 NEXT wn 

22150 RETUFN 

22930 REM 3o23> oe bee questionssce aed das 
23000 at=INKEY$: ats=UPPERS (at) 

23010 IF agi"@" OR age"9" THEN GOTO 


2300 
74) 
2AQ02Z20 qw=VAL Cat) 
23030 qw=qwtl 
35 SOUND 2,600-qwkS®, 25,15 
23040 FOR pe=1 TO 4 
22050 LOCATE #1,pexs-7,qw 
£5060 PRINT #1,s$Cpe,qw) j 
= NEXT pe 
23200 RETURN 


4. 
Star Trek 


SECTOR 
MEM 


The Program that Goes Boldly On 


There have been versions of Star Trek written for just about every 
computer ever made. This says a lot for its attraction as a game and 
makes this the classic game. 

Now you can turn your Amstrad into a Federation Star Ship 
complete with scanners and phasers. Your mission is to clear the 
quadrant of the evil Klingons, without using up all your energy or 
being vaporised. 

This version incorporates a zooming star field and ‘real time’ 
action during encounters with the enemy or when docking with star 
bases. 

There follows an extract from the 32,544 page mega-manual 
entitled: ‘How to be Captain of a Star Ship in 4000 easy lessons’: 


1. Keep calm. Remember the most you can lose is: your own life, 
20 billion Galactic Dollars worth of hardware and the lives of 
everyone in the known universe. 

2. Watch where you are going! Use the ship’s eyes to reveal the 
nature of the universe. Pressing ‘L’ for Long Range Scan (LRS) will 
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display the position of your ship and the whereabouts of the enemy. 
Klingons are represented on the LRS bya circle with an arrow. This 
is the ancient symbol of Mars, the war bringer. 

Star bases are represented by a circle above a cross. This is the 
ancient symbol for Venus, the bringer of love. 

Those sectors which are occupied by both enemy and star bases 
have a square symbol in them. The square is an ancient symbol fora 
square. 

3. See what you can do? Pressing ‘S’ will activate the short range 
scanners. This indicates the total number of enemy and star bases in 
the present sector. 

4. Keep an eye on your energy. Docking with a star base will give 
you more. To dock press ‘D’ on your control panel. If there is a star 
base in that sector the docking sequence then requires you to steer 
your ship using left and right controls until the star base rests in the 
centre of your screen. Once docked you will receive 20 extra units to 
the overall ship’s energy bank and a special 20 unit boost to your 
phasers and shields. Maximum capacity is 95 units. Failure to dock 
could result in the loss of the base. So be careful out there! 

5. Zap em’, Cap'n! A Star Fleet Captain has to do what he has to 
do, and that means eliminating the evil menacing Klingons. 

If there are Klingons around, hitting the ‘B’ key sounds Battle 
Stations and you can start zapping. First get your enemy in the centre 
of the screen using the cursor pad or joystick. When you are ready, 
stab the copy key or fire button, sending phaser bolts out to destroy 
the target. 

If you are not successful quickly you will lose the element of 
surprise and they will start to shoot back, thus draining your shield 
power. Do not give in, keep zapping until the last one is cleared from 
the sector. Then move on to win more battles. 

6. Warp carefully. Movement to any sector is achieved by pressing 
‘W’ followed by a number between I| and 5. This is equal to the warp 
factor or distance you wish to travel. 

Next the warp direction is required. This is a number between | 
and 8. Each number corresponds to a point on a compass, starting 
with one at the top and counting clockwise. Note: clocks have been 
retained in stardate 2806 to help Captains steer their Star Ships. 

7. The semi-final frontier. 0n commencement of mission you can 
select the level. The easy level has only 10 enemies to seek and destroy. 
The average level has 20 and the hard level has 30. 

As each level is completed, news of your success reaches Central 
Klingon Control and a replacement force, increased by 10 each time, 


is sent out 
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to do further battle. The ultimate challenge consists of 200 


adversaries to wipe out. Are you ready Captain? Then let 


programm 


1 FE 
2 FE 
S@@ 

400 

610 

620 

650 

1®@a 
191 
1020 
1030 
ZOOM 
2010 
ZO2ZD 
ZOS® 
200A 
ZOA®@ 
ZOSO 
ZOWO 
SOOO 
ZO1@ 
4000 
dO1® 
A020 
PRES) 
41040 
4O35@ 
40460 
OOO 
E9E@ 
TOO 
70190 
7@15 
7O2Z® 
7925 
7O30 
7O35 
7A 
7@A5 
7TOR® 
7O35 


ing commence ... 


M <ededeed star trek ISSI 23322 >2o? 
M 
SYMBOL 240,7,98, 202,254 ,242,95,7,9 
DIM s¢15,2) 
MEMORY 39995 
addr=39999:GOSUR 272500 
PRINT CHR C239 5; CHES C1) 5 

GOSUR 21000 

GOUSUER 22a@@ 

GOSUE 2aadea 

GOTO daoa 

at=INKEY#$! af=LIPPERS( at) 

IF at="L" THEN GOSUB 22a0@ 

IF a$="S" THEN GOSUER 2d@oo 

IF at="W" THEN GOSUB 25000 

IF at="D" THEN GOSUEB 26000 

IF a$="K" THEN GOSUEB 2700 
FOR n=1 TO S@2NEXT vn 

GOSUEB 114@@ 

IF a$=""" THEN GOTO 2aO0@ 

IF dead=1 OF eners1 THEN GOTO 790@® 
LOCATE 7,21:°PRINT ener 

LOCATE 7,223:PRINT shie 

LOCATE 7,25:PRINT phas 

LOCATE 17,21:°PRINT sec 

LOCATE 17,23:PRINT enem 
LOCATE 17,25:PRINT s¢sec,2) 
IF enem=alien THEN GOTO 10000 
GOTCA 2aae@ 

REM $O2>>2 RoE ER> dead a4eeeedndddd 
PAPER 1:PEN 2:CLS 

PRINT " Bad Luck !" 

PRINT 

PRINT " THE" 

PRINT 

PRINT "Starship Enterprise” 
PRINT 

PRINT " has been destroyed" 
PRINT 

PRINT "hy the Klingons, but" 
PRINT 
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7960 PRINT " Admiral Sugar has" 
7965 PRINT 

797® PRINT "decided to give you" 
7075 PRINT 

7430 PRINT " just 1 more chance" 
7@35 PRINT 

7090 PRINT "if you want to get " 
79935 PRINT 

7190 PRINT " your vengeance ! 
7119 LOCATE 2,25:PRINT "Any Fey To Play" 
7iz® a$=INKEYS 

713@ IF at=""" THEN GOTO 7120 

7id@ GOTA 14a@0 


9930 REM 332272232 next tccccce dads 
19@0@ PAPER 1:2PEN 3:CLS 
19910 PRINT " Well Done," 


10@20 PRINT:PRINT " Captain Kirk.' 
19@30 PRINT:PRINT " Now you must fight" 
10440 PRINT:PRINT “ a fiercer group of" 
19@5@ PRINT:PRINT " KLINGOINS. .« «© « ." 
190060 alien=alien+1@ 

1@@7@ LOCATE 3,25:PRINT "Any Key To Play 
19980 at=INKEYS 

19090 IF a$="" THEN GOTO 1a@3@ 

19104 GOTO 1014 
19930 REM 3332s 
1190@® INK a 

11910 clr=clr+i:tIF clr=13 THEN clr=5 
119020 INK clr,2é 

11430 RETURN 

1992 REM 32322222 >> screen 4edcececee 
29000 MODE @:SPEED INE 190,10 

20@20 INK @,@:INK 1,2°INE 2,3:5INE 3,24 
20030 INK d,3:INK id,2,2d:INkK 15,24,6 
2@@35 WINDOW #1,1,290,1,2 

20040 WINDOW #2,2,13,3,19 

2Q0@3@ WINDOW #3,15,19,5,11 

20060 WINDOW #4,15,197,13,197 

20070 BORDER @:PAPER @:PEN 4:CLS 

20030 PAPER #1,4:PEN #1,1°CLS #1 

20090 PAPER #2,1:PEN #1,23°:CLS #2 

2910@ PAPER #3,2:PEN #3,3:°CLS #3 

2@11@ PAPER #4,2°PEN #4,3:CLS #4 

2@120@ LOCATE 16,4:PRINT "LRS" 
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2O13@ LOCATE 16,12:PRINT "SRS" 
2014d@ PEN 3 

2@150 LOCATE 1,21°PRINT "ENERGY:" 
2916@ LOCATE 1,23:2PRINT "SHIELD:" 
2@170 LOCATE 1,25°PRINT "PHASCR:" 
20150 LOCATE 11,21:PRINT "SECTOR:" 
Z@190 LOCATE 11,23:5PRINT "ENEMY: " 
29200 LOCATE 11,25:PRINT "*-BASE:" 
ZO2Z10@ PEN 4 

29290 PRINT CHE (C23) 5CHES (CO) 5 
2O300 col=S 

ZOS1O FOR n=1 To 12 

20320 PLOT 206+n#*16,2350, col 

29320 PLOT 238-n*#16,230,col 

29340 PLOT 222, 220+n*1iz2,col 

2O0350 PLOT 222, 2d0-n*12,col 

2936@ PLOT 2064+n#*#16,220+n#*1 Ee, col 
2@370 PLOT 2O64+n#*¥16,2dO-n*12,col 
20330 PLOT 225-n*16,220+n#12,col 
20390 PLOT 238-n*16,2d@-n*e12,col 
29410 INK 13,2 

2O@420 PLOT d@,11@,13:°DFAW 200,220 
290430 PLOT dOO,119,13°DFRAW 250,220 
2@dd®@ col=colti:IF col=i3 THEN col=5 


ZOA50 NEXT vn 

20460 PEN #2,3 

240470 LOCATE #2,5,12:PRINT #2, CHE&(147); 
CHR (15:39 5CHR EC L359 sCHRS CLAS); 

2Od97O clr=S 

20500 PRINT CHES (23); CHES C1) 5 

293510 RETURN 

2O98Q REM Foo eee difficulty <{<4ee0¢ 
210@® PAPER @:PEN 1:MODE 1 

219010 PRINT "Hard/Easy/Average 7" 

21920 atg=INKEY$: at=LIPPER#( at) 

21030 IF at="H" THEN alien=2@:RETURN 
210d@ IF a#$="E" THEN alien=1@:RETURN 
Z1@S0 IF at="A" THEN alien=15:RETURN 
21060 GOTO 21020 

219780 REM 33>2>>2>2%2> initialize <<4<<<c< 
22000 RANDOMIZE TIME 

220190 FOR n=1 TO 15is(n,1)2=@'s¢n,2)=@2NE 
XT 1 

22020 FOR n=1 TO alien 


38 Sensational Games for the Amstrad 


22070 
SEOR0 
22OF@ 
22100 
22110 
22120 
22120 
Z22Z1da 
ZZzE200 
Vipie Bak 2) 
2500 
22010 
22020 
ZIOaO 


23040 


sec=INTCRNDC1)*15)+1 

IF s€sec,1)33 THEN GOTO 22030 
s(€sec,1)=s(Csec,1)+1 

NEXT 1 

FOR n=1 TO 
PoH=INTCRNDC1)>#1 5941 

IF s€po,2)=1 THEN GOTO 22080 
sCpo,2)=1 

NEXT nv 
phas=Zitener=2oihbad=Oishie=25 
sec=INTCREND¢(1)¥*#15)+1 

enem=0 

RE TLURN 


SOUND 2,200 
FOR n=i1 TO S 
FOR m=1 TO 3 
LOCATE #3,m,n*2:2PEN #3,2 


REM 333323 >2> ee aS 
. 


IF po=sec THEN PEN #3,15°PRINT #3, 


CHR$ (2d@)'GOTA 22070 


23045 IF s(po,1)2@ AND s(po,Z)=1 THEN PE 


N #3,d4:°PRINT #3,CHR$(232):GOTO 22070 


23050 IF sC€po,1)>@ THEN PRINT #3,CHRE (23 
4):2:GOTO 22070 


23055 
2RO6O 
5) 

23O7O 
23050 
ZEOIO 
23100 
23140 
23150 
2R19@ 
232OO 
2E9kO 
ZAOOD 
24005 
ZAOD1O 


24015 
Z4OZO 


PEN #3,14 


IF sCpo,Z)=1 THEN PRINT #3, CHRS(23 


Fo=pot+l 

NEXT m 

NEXT 

FOR n=1 TO 7SQ@@2NEXT vn 
CLS #3 

SOUND 2,200,25,15 
ener=ener-& 

RETURN 


FEM 33322222 short scan “440 " 


eM 


SOUND 2,150,25,15 
PEN #4,15 


LOCATE #4,2,3:PRINT #4,CHRS( 23d) 55 
Csec,l)> 


PEN #d4,1d4 


LOCATE #4,2,5:°PRINT #4,CHRS C255 


¢sec,2) 


ZAORG 
2AGgAD 


FOR n=1 TO 7a@@SNEXT vn 
CLS #4 


2435 
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24050 SOUND 2,150,25,15 

24090 ener=ener—3 

24190 RETURN 

24980 REM 235222 > EPP warp Seed deed 
25000 CLS #1:PEN #1,3 

20010 PRINT #1,"WARP FACTOR ¢1-S) =" 
25020 at=INKEY$:IF ag=""" THEN GOTO 2So020 
Z25030 IF ag<"i" OR a$2"S" THEN SCLIND 2,3 
20,50, 152:GOTO 25014 

25040 dis=VAL Cat) 

25050 CLS #1 

25060 PRINT #1, "WARP DIRECTION 7" 

25070 a$=INKEY$: IF at=""" THEN GOTO 25070 
25080 IF age"i" OF agée"s" THEN SOUND 2,3 
20,250,195 :°GOTO 2aa60 

25090 dir=VAL Cas) 

25100 RESTORE 25500 

25110 FOR n=1 TO dir 

2a120 READ xy 

25120 NEXT vn 

25150 FOR n=1 TO dis 

25160 sec=sectxy 

25170 IF sec<i THEN sec=sect+15 

25180 IF sectiSh THEN sec=sec-15 

22190 SOUND 2, 7S5%#n,25,15 

25250 NEXT 1 

25260 IF s(€sec,1)223@ THEN GOSUR 25400 
25270 CLS #1 

S5290 ener=ener-INTCdis#1.3) 

25300 RETURN 

ZoSa® 
SSID 
S5E0® 
25610 at="FED ALERT ! «FRED ALERT ! .~RED 
ALERT !. " 

20620 x=INTCRNDC1)*200)4+1002dis=1 

25650 FOR n=1 TO 25 

25660 at=RIGHT$( as, S7)+LEFT$S(Cas,1) 
25670 LOCATE #1,1,1°PRINT #1 ,a% 

25680 SOUND 2,190@-n*2,1,15 

22690 NEXT vn 

257900 RETURN 

SU93@ REM 3o2>>>>22 >> docking @<<¢eecede 
269000 CLS #1:°PEN #1,3 

ZE@10 IF s(sec,2)=@ THEN PRINT #1,"No St 


Es 


Lode 
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arbase . ."ISOUND 2, 300,25, 15:RE TURN 
ZEOZO x=INTCRND(1)*200)+ sedis=1 
26030 y=S50:TAG 
26040 PLOT @,@,1 
26050 MOVE x,y?PRINT CHRES(C235)3 
26060 GOSUR 2oa0a@ 
26070 MOVE x,y?PRINT CHRS( 235) 3 
26030 IF ri=i1 THEN dis=dis-1 
26090 IF le=1 THEN dis=dis+1 

ZE100 yFeyrlix=xtdis 

26102 IF ¢<3@ THEN x=30idis=distl 
26104 IF x2380 THEN x=3802rdis=dis-1 
26110 IF y=200 THEN GOTO 246150 
26129 GOTO 26050 

26150 TAGOFFSPEN 4 


26160 IF x£16@ CR x e270 THEN PRINT #1,"M 


ISSED ! '":SQUND 1,40@,25,15:RE TURN 
26170 IF x2190 AND xi2d@ THEN GOTO 262 


26130 PRINT #1,"STAFRBASE DESTROYED" : SUILIN 


D 1,500,50,15,0,0@,31 
26165 FOR n=S TO 12:INK n,3tNEXT 
26190 FOR n=S TO 1Z:INK n,6é:NEXT 
26195 s(€sec,2)=O0:RETURN 

26200 PRINT #1, "DOCKING . . . ." 


26210 ener=ener+tZ@:IF eners3S THEN ener= 


26215 phas=phast+2@:°IF phasoo9S THEN phas= 


ae met 


BE 20 shie=shietZ@:IF shiet?S THEN shie= 


95 


26230 SOUND 1,300,25,15:SOUND 1,200,25, 1 


S:SOUND 1,100,25,15 
62d@ FOR n=1 TC ZO@@:NEXT ntCLS #1 


S980 REM 3232233522 battle <ce<cdceddd 
7000 FOR n=200 TO 
,15¢NEXT m1 

27019 dead=o 

Z27@30 PEN #1,3 


S® STEP-1:SOUND 1l,n,l 


27440 IF s€sec,1)=@ THEN TAGOFFECLS #1:°P 


RINT #1," SECTOR CLEAR." : RETURN 
27050 x=INTCRND(1)*200)+75 

27060 y=INTCRND(1)*100@)+100 

27@70 TAG:PLOT @,@,1 

27100 TAGIMOVE x,y!PRINT CHRS( 235); 
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27110 GOSUB 2a@oo 

27120 IF fi=1 AND phas?@ THEN GOTO 27500 
27120 MOVE x,ytPRINT CHES CES5) 5 

27132 TAGOFF 

27135 IF kil=1 THEN s¢sec,1)=s¢sec,1)-1: 
kil=@:GOTO 27010 

271d@ IF le=1 AND xX SS@ THEN xd=xd+1 
27150 IF ri=l AND xed THEN xd=xd~1 
2716@ IF do=1 AND yx 25@ THEN yd=yd+l 
27170 IF up=1 AND yr11@ THEN yd=yd~-1 
27160 IF ex=1 THEN RETURN 

27200 x=xKtxKdE ITF x8 SO THEN x=S0!2xd=—-xa 
27210 IF x336@ THEN x=S6@8 xd=—-xd 

27220 y=ytydt IF yr26@ THEN y=360 

27230 IF yei12@ THEN y=1202yd=-yd 

27235 RANDOMIZE TIME 

27240 IF BND(192@.95 THEN GOTO 27270 
27250 INE 1,3:SOUND 1,400,20,15,0,0,31 
27260 shie=shie-1:IF shie=-1 THEN dead=1 
*RE TURN 

S7265 FOR n=1 TO S@tNEXT ni INK 1,2 
27270 LOCATE 7,23:PRINT shies; 

E7280 LOCATE 7,25:2PRINT phas3 

27290 LOCATE 17,23:PEINT enem; 

27450 GOTO 2710 

27490 REM * * * fire * * * 

27200 INK 13,6 

275190 FOF n=100 TO S@ STEP-1°SQUND Z2yn,1 
yl otNEXT wn 

27520 INE 13,2 

27330 phas=phas-1l 

27Sd@ IF yezd@® AND ys20@® AND xizd@ AND 
32@@ THEN enem=ernemt1likil=1:SOUND 2,300, 
SO ,15,9,9,15 

27600 GOTO 27130 

E79SO REM 2oo2> oR? key/star ceeded’ 
220040 GOSUB 27000 

25010 GOSUER 119@® 

2SO50 RETURN 


Now ’MERGE* the *INEEYS® routine. - - 


5 
Rainbow Breakout 


An Arcade Classic 


This second program classic has great attraction for players of all 
ages. It is one of the shorter programs in the book and so may be a 
good first attempt for those new to programming. 

At the start you are asked to select a large or small bat, then the 
game begins. The object of the game is to eliminate all the blocks by 
hitting them with the ball. Your bat is moved left or right using the 
cursor pad or joystick. It must be moved in advance to anticipate the 
path of the ball as it bounces back from the blocks. 

If you lose a ball then there are three supplied before the game 
restarts. The score is shown and can reach very high levels in the 
hands of a skilful player. 

This game can be merged with the ‘High Score’ routine to provide a 
competitive game for more than one player or for a solo player to 
trace his hopefully improving play. 
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1 FEM <<teeede rainbow ISSI 2233222 Sb> 
Zz REM 

4d@® FRANDCIMIZE TIME 

200 SYMBOL 2d@ S35, 195 165,155, 153,165,1 
95,255 

S1@ SYMBOL 2d1,255 255 255, 22d eed, S2d,2 
24,464 

=2@ SYMBOL 2d2, 255,255, 255, ,0,90,0,0, 
220 SYMBOL 2dS, 255,255,255 ,7,7,7,7 ye 
a2@ MEMORY Sd995 

360 addr=34d999:GOSUB 27500 

S70 loca=S5029:GOSUR ZOR@n 

190@® sc=@:1i=5 
1@1@ MODE 1 
1920 INPUT "Small/Large TF" ,a% 

1030 s$="""Slim=19 

1494d® IF a$="1" CR ag="L" THEN s#$=CHRES (C2 
429+CHRS$ (242): 1lim=17 

19030 GOSUR 2OO@M 

196490 count=a 

1190 x=1 

1110 GOSUB 2114® 

1200 h=2Zd 

1210 RANDOMIZE TIME 

1220 IF RND¢(1)2@.5 THEN c=1 ELSE c=@ 
1230 c=c+CINTCRND¢C1)#1909+5) 

1250 bd=-lLiad=-1 

15400 GOSUB 214@a@a 

1520 GOSUE 2200@ 

1550 IF count?15@ THEN GOTO 1050 

2000 GOTO 15a 

19797530 REM PROS Ore 
20000 RESTORE 
ZOO1® FOR n=® To 15 
ZOO2M READ w 

20030 INE myw 

2ZOOA® NEXT vn 


screen <<<<ecd ddd 


20050 DATA 0,24,15,26,20,4,6,15 
20060 DATA 24,12,2,5,8,6,15,2 
20070 PAPER @tBURDER 2!MODE @ 


20075 RESTORE 20210 
200280 FOR n=1 TO 2o 
29070 READ col 
20100 FOR m=1 TO 14 
20110 LOCATE rym 
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Z2@120 PEN col 

2@130 PRINT CHE $(24@) ; 
2@14@ col=col+i 

20150 NEXT m 

ZOLE® NEXT vn 

20200 RETURN 


BOZO DATA Bydydy Sy Sig Sy Gy Gy Gy Gy Gy 


Fy 5,4,4,35 

ZOI9S3O0 REM 333377322 movement «icecdgded 
21000 GOUSUBR 299000 

219@1@ IF le=1 AND x21 THEN GUSUB Z21ld@@ix 
=x-ZIGOSUB 21100 


21020 IF ri=1 AND x<lim THEN GOSUE 21ido@ 


PxX=x+2IGOSUB 211400 

21630 RETURN 

21990 REM * * * draw * * * 
211@@ PEN 1 


2L11L11@ LOCATE x,25:PRINT CHES (2d1)5585C 


$C 243); 

ZLi12@ RETURN 

2Li3S9O FEM * * * rub * * * 

21dO@@ LOCATE «x,25:3PRINT " "3 
Sld2@ IF s#<e"" THEN PRINT " Me 
Z21d50 RETURN 


FIGEO FEM 2ooo ooo draw ball {inne 


21700 PEN 2 
21710 LOCATE c,biPRINT CHRS¢ 202) ; 
21720 RETURN 


HF: 


2ZA79O REM Sooo See rub ball <<iedeen 


21500 LUCATE c,yhbiPRINT " "jy 
215810 RETURN 

21930 REM 3333323 move ball «4cdecded 
22000 GOSUB 215@@!al=cthi=h 

22010 al=altadibi=bithd 


22020 IF al=@ THEN al=liad=1:SOUND 2,50, 


1,15 
22030 IF al=21 THEN ai=2@!ad=—1:SQUND 
50,1,15 

220d@ IF bi=@ THEN hi=1 

22050 IF bil=25 THEN GOTO 22500 

22@6@ LOCATE al,bi:GUSUB 3ee0e 


22970 IF ch=2d@ THEN PRINT " "32SOUND & 


1O0@,2,152iscH=sct1@ihd=—bdi count=counttl 
22075 IF bil=1 THEN bad=1:ISMUND 2,50,1,1 
229030 c=ctadib=btbha 


o“ 
— 4 


ay 


c 
wt 
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22090 GOSUB 2170@ 
ZZ1@0 RETURN 

22500 LOCATE c,25:GOSUB 30@aa 
22510 IF ch=S2 THEN GOTO 26000 
S20 bd=-1 

22520 IF RND¢1)2@-5 THEN c=c+l1 
225d SOUND 2,75,1,15 

ZZ55@ RETURN 
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ZEIS@ REM 2oeoe PEP PES dead enced ended 


264000 GOSUBR 21400:1i=1li-1 

26010 SOUND 2,300,75,15 

26020 IF 1l1i*@ THEN GOTO 110@ 

26100 MODE @ 

26110 PEN 1 

26120 PRINT " CONGRATULATICNS ! !" 
26130 PRINT 

2614d@ PRINT "You scored = " 

26150 PRINT 

26160 PRINT sc3" points !" 

26500 LOCATE 1,24:PRINT "Another game 
CY/N)" 

26510 as=INKEYS 2 af=LIPPERS (ag) 
26520 IF at="Y" THEN GOTO 1000 
26530 GOTO 26510 


Now ’MERGE’ the ’INKEYS’ and the 


TCHAR CHECK’? routines. .« -» 


6 
Maze Maniac 


A Game with Perspective 


This third classic is a 3D maze game in which you have a perspective 
view of the paths open to you. 

The object of the game is to find your way around the maze 
quickly. If you do it fast enough then you will catch the maniac. If you 
are too slow then he will catch you! 

On screen are shown the passages that are open to you. The arrow 
at the bottom indicates the true direction that yoware facing and how 
far you have travelled towards the exit at bottom right. 

The left or right cursor changes the direction you are facing. The up 
cursor takes one step into the picture each time it is pressed. The 
down cursor takes you back one step and leaves you facing the same 
direction. The joystick can also be used to move. 

Once you are successful in reaching the end of the maze then the 
target time is reduced and the best time must be beaten. 

This game uses a sophisticated technique, based upon the 
Amstrad’s colour pointers, to achieve the very fast changes to the 
picture. The technique is worthy of your close examination since you 
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can use it to produce high speed movement in your own programs. 
If the program is merged with the ‘High Score’ routine then many 
players may race against each other’s best time. 


1 REM <<<< maze maniac <> ISSI/JIM 
2 FEM 

=40@ SYMBOL AFTER 225 

700 high=9F 

14@@® GOSUER 2400 

1920 GOSUER 2E2Oao 

19350 po=liview=ditarg=high- 

196 LOCATE 9,22:PRINT "MAZE" 

1965 LOCATE &,24:PRINT "MANIAC" 
1@7% GUSUB 2O0O0:GOSUB Z=2Za00 

19020 GOSUR 270@@:GOUSUB 2300 

140970 start=TIME 

119® GOSUBR 22000 

1150 GOSUB 27000 

11640 GOSUBR 23000 

1170 IF won=1 THEN GOTO 32000 

118® won=® 

12@@ GOTU 1100 

9980 REM 2: 
19@0®® SYMBOL 
19@10 SYMBOL 
&,6@ 


ee, 90, ener 


10420 SYMECL 230,0,4,%,52,1274,56,28, 1d 
10030 SYMBOL 231,112,121,127,63,31,7,1,1 
1004 SYMBOL 232,609,255, 255,2595,231,215, 


255,213 

19@5@ SYMBOL 223,14, 159,250,252, 2d6,22d, 
ize, 12 23 

10060 SYMBOL 23d,1,3,15,15,31,63,62,62 
19@7@ SYMBOL 235,171,213 235,215,255 ,255 
9 6:0,2 

1@@30@ SYMBOL 236,120,192, 2d0,2d0,2d0,252 
,i24,12¢4 

19@9@ SYMBOL 227,390,135 ,15,2,59,127,127,5 
7 

19100 SYMBCL 22 
19114 SYMBOL 2 
geod, 156 

101240 PEN LiS:INkK 15,13 

19130 LOCATE &,1@:PRINT CHES (228) 5 CHRS¢( 2 
27) 5 CHR (230) 


,0,0,09,0,129, 195,195,129 
7 "120,240,240, 192,220 "2S 
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19@1d@ LOCATE &,11:°=PRINT CHR (C221) 5CHRS C2 
32) 5 CHR$ (233) 

1915@ LOCATE S,12:PRINT CHR$¢ 234) s;CHRSC2 
33) 3 CHR (236) 

19164 LOCATE G,1S:PRINT CHRE$C237) sCHRSCE 
33) ; CHR (239) 

19179 PEN i 

19200 RETURN 

19980 FEM #o3>> initialise screen Sica 
Z2O0OO BORDER @:PAPER @:MODE @ 

200d INE @,3:PEN 13 

2@@50 PLOT @,76,12:DRAW 635 
20060 PLOT @©,72,13°DFAW 629 
20070 PLOT @,Z2,12°IDRAW 629,2 
20080 PLOT @,6,13°DRAW 
290970 PLOT 156 ’ @:DRAW 1 
2@1@® PLOT 15@,0:DRAW 13¢ 
2O11@ PLOT S12,@:DRAW S12, 
20120 PLOT S20,0:DRAW S20, 
20130 GNSUB 21900 

ZO1d@ PLOT @,S0,9:DFAW 2d@,2OO0:DRAW 2d0, 
27S,15 

2O1SO0 PLOT 639,50,@:DRAW S95,2002DRAW 39 
B,273,15 

2O16@ PLOT 160,160,1d:°DFEAW 160,318 

2O@L70 PLOT A7S,16@,14:° DRAW 475,215 
2@150 PLOT S@,120,13° DRAW 80,356 
20190 PLOT SSS,1290,13°DRAW S58, 355 
20200 LOCATE 1,22:PRINT "Goal" 

20210 LOCATE 1,24: PRINT tary 

20215 PRINT CHR C22) > CHES C1) 5 

20220 LOCATE 15,22:PRINT "Hi" 

2@230 LOCATE 17,24d°PRINT high 

29240 PRINT CHE$ (22) 5 CHRE(@) 3 

20270 RETURN 

20780 REM ooo > oe S>> draw walls «secede 
21000 FOR n=50 TO 115 STEP 2 

21@10 PLOT @,n,13:°DRAW 635, ,n 

21020 PLOT @,250+n,13:°DRAW 635, 250+n 
Z1i@Se@ NEXT mn 

21@d® FOR n=120 TO 156 STEP 2 

Z21@S0 PLOT S0@,n,14°DRAW SSS n 

21060 PLOT S30,2@0+n,14d° DRAW S55, 200+n 
21970 NEXT ni 

21@8O0 FOR n=160@ TO 195 STEP 2 


NN 
hp 


mm om md hi- w 


“NJ 
ian) 
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21@9@ PLOT 160,n,15:DRAW 475,n 

2110@ PLOT 160,12@+n,15:DRAW 475,120+n 
ZL1L1@ NEXT vr 

21120 FOR n=200@ TO 272 STEP 2 

21130 PLOT 2d@,n,@:DRAW S98 ,9r 

Z11ld@ NEXT 

21150 FOR n=o TO 73 STEP 4 

21160 PLOT nylZ@,1@:DRAW 1,355 

21179 PLOT 629-n,120,7:DFAW 639-n, 355 
21150 NEXT 

21190 FOR n=80 TO 158 STEP 4 

21200 PLOT n,16@,11°DRAW 1,318 

212190 PLOT 639-n,1460,3°DRFAW 639-n,315 
21220 NEXT n 

21230 FOR n=160 To 235 STEP 4 

2lZ2d@ PLOT n,20@0,12:DRAW 1,275 

21250 PLOT 639-n,200,7:DRAW 629-n,275 
21260 NEXT mn 

21270 FOR n=360 To 39a STEP 2 

21250 PLOT 79,36@0,1°DFAW O,n 

21290 PLOT 73,115,1:° DRAW O,n-250 
2120@ PLOT 34640,26@,d:DRAW 635,11 

21310 PLOT 36@,115,d°DFAW 636,n-230 
21320 NEXT n 

21330 FOR n=320 TO S55 STEP & 

213d@ PLOT 159,320,2:DRAW Ba,n 

21350 PLOT 155,155,2:°DRAW 80,n-20@ 
21360 PLOT d&0, 320, 5°DRAW SSS, 

21370 PLOT d50,1355,5°:DFAW 353,1-240 
21380 NEXT wn 


21390 FOR n=250 To S15 STEP @ 
21d@@ PLOT 239,200, 3:°DFAW 160,n 
21d16 PLOT 2355 ,193,3:°DRAW 160,n-120 
2ild2@ PLOT d@@,280,6:DRAW 473,11 
21430 PLOT dO, 1953,62DRAW 475,n—-120 


Zildd@ NEXT mn 

21450 RETURN 

ZI9SO0 REM 33332332 colour data <<t<ddds 
22000 DIM 1¢1d,%) 

22010 RESTORE 2200@ 

22020 FOR n=1 TO 1e4 

22030 FOR m=1 To 9 

22040 READ ail(n,m>=a 

22050 NEXT m 

22060 NEXT n 
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22070 RETURN 
22030 DATA 676161616 56720,11 92 
fh 


22090 DATA 6,6,2,6,6,5,20,11, 

22100 DATA EL Lg bey lig Bg lng 2Qy lig? 
22110 DATA 6,11,2,6,3,23,20,11,2 
22120 DATA 20,6,6,3,6,6,29,11,2 


“a 7; 


22130 DATA 20,6,2,3,6,5,20,11,2 
221d@ DATA 20,11,6,6,3,6,20,11,2 
2S15@ DATA 20,11,2,3,6,3,20,11,2 
22160 DATA SHG) S40) &,3,20,11, 
2217@ DATA 6,11,: 
22180 DATA 20,6,3,3,6, 
22190 DATA 30 1135648550205 11 55 
22200 DATA 6,3,3 3 


3,6)3,5,20, 11,3 


< yogis 

22210 DATA 20,3,3,5,5,3,29,5,5 
22980 REM 2>ee>? > choose colours 
23000 FOR n=1 TO S 

235010 INK n,yl¢vlym> 

23020 NEXT 


235030 FOR n=d TO % 
Z23Q@d@ INE nt+é,1¢vl,rn) 
22050 NEXT n 
22060 FOR n=1 TO & 
23070 INK ntS,l¢vr,n) 
ZIO2Q NEXT vn 
22110 RETURN 
SE980 FEM +R DD variables ¢4444c0" 
2A00® DIM mCS5) 
Sd010 GOSUB ZAaa® 
2d020 addr=2d9997:GOSUR 29500 
24250 RETURN 
24920 REM Foee REDD maze data <feeinddd 
25000 RESTORE 2500 
ZEQ10 FOR n=1 TO SS 
25030 READ atim(n>=a 
ZIOS@ NEXT vr 
250970 RETURN 


ZELO@ DATA 4,6,1,6,7,5,49,6,5,6,1 
25110 DATA 10,13,2,%7,12,19,11,9,14,11,1 
BSALZO@ DATA by Fy Ogg Fy kg ig Sy Vy lg 

PSL5@ DATA 12,6,1355255,6,15,9,6, 9,12 
ZRLd@ DATA 10,9,10,3,9,5,19,3,9,2,9 
25950 REM Po >>2 RE ER n/sle/w Chih sede 


ZEQ00O x=mMCPpo) 
26019 no=O@:so0=O!iea=Oiwe=0 
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S602@ IF x= THEN no=lix=x-a 
26030 IF x2=d THEN so=1lix=x-ad 
S60d@ IF xe=2 THEN ea=Lix=x-2 
26050 [F x2=1 THEN we=Lix=x-1l 
ZEOEO RETURN 

ZE930 REM = 
27900 GOSUE 
27440 vl=lLivr=lia=l1isa=po 

270350 FOR qee TM @ STEP —1 

27055 ok=qedisprlF satok<i OR satokeoan T 
HEN GOTO 271460 

27960 po=satok 

279740 GOSUBR 2EO000 

Z7O7E d=O21=Or =O 

27930 IF view=1 THEN d=we:l=soir=no 
279090 IF view=2 THEN d=no:l=wetr=ea 
271900 IF view=3 THEN d=eail=notr=so 
27110 IF view=4 THEN d=so:l=ea:r=we 
27120 IF d=@ THEN GOSUEB 2750@ 

27130 IF 1=1 THEN vl=vlta 

271d IF r=1 THEN vrevrt+a 

27150 a=aktZ 
27160 NEXT 4 
Z2717@ po sa 
271530 RETURN 
27430 REM =: 
27500 v1l=15: 
273510 IF q=2 THEN vl=1 

27520 IF gq=1 THEN vl=% 

275350 vre=vl 

275400 RETURN 

27930 REM boo E E> move position titted 
25000 GOSUB 27000 

25010 IF le=1 THEN view=view-1:GOSUE 320 
@o 

ZEQ020 IF ri=l THEN view=viewt1i:GOSUHR 320 
aa 

ZE@d@ IF do=il THEN view=view-1:GOSUE 32@ 
@@sview=view-1:GOSUB S2000:GNSUB 2S500 
239050 IF up=1 THEN GOSUB Saha 

28060 IF do=1 THEN view=view-1:GOSUBR S320 
OOsview=View-1:GOUSUB B2Za0® 

28090 IF po=Sad THEN WON=1 

25110 RETURN 

Z2SSOO IF view=1 AND we=@ THEN GOTO 2a70o0 


i 


check view “anna e ag 
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25510 


zy a] 


3001 
3OO20 


314020 
S193 
21ada 
S103 
31070 
SIQs@ 
SLE 
SZO0O 
SZ01@ 
32020 
S2O3O 
32040 
S2ZO30 
S2060 
32070 
SZO3O 
SEZOIO 
32108 
321190 


IF view=2 AND no=0 


IF view=3 AND ea=@ 


IF view=4 AND 


ZOOOD 


GOSLIEB 
IF potdispess 


IO 


fFo=potdisp rGOSUR S200 
RETURN 

BORDER 16 

SOUND 2,200,25,15 


FOR z=1 TO 2S 
NEXT = 


BORDER © 

FE TURN 

REM boo RRR REE 
IF view=1 THEN 
IF view=2 THEN 
IF view=3 
IF view=d 
RETURN 
REM 3332222 b RED 
sym=2d1 

IF view=®@ THEN 
View=5 THEN 
vView=1 THEN 
View=2 THEN 
View=3 THEN sym=2d3 
PRINT CHR sym) 3 
RETURN 

REM 3337 SP RRR 
FOR n=21 TO 25 
LOCATE 6,7 

PRINT SPCC11)!PRINT 
NEXT rs 
ypHINTCpo/il>d 
xpHepo-Cii*yp) 


movement 
disps=-1 
dispe=-11 
Aisp=l 
disp=11 


THEN GOT 


THEN GOTO 


s0=@ THEN GOT 


ZS IOO 


2S70@ 


Ba 7a® 


OR potdispe 1 THEN Go 


IF xpH@ THEN xpHlliypeyp-i 


PRINT CHES (23) sCHRS¢C1) 35 
LOCATE xptSy,yptel 

GOUSUE 3190 

PRINT CHR (C23) 5CHRS(@) ; 
RETURN 


32930 FEM 32: 
33000 fin=TIME-st 
32010 sc=INTCfin/Z 
32020 IF sct=high 
32030 won=@:rCLS 

S20d0 PRINT: PRINT 
32060 PRINT?IF sc 
ot your Goal !" 

32070 GOSUR 14000 
S2d97@ LOCATE 3,24 


33500 FOR z=1 TOC 


GOTO 105@ 


Now ’MERGE’? the 
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PRR out <nececn dds 
art 
Soo) 

THEN high=sc 

"Your Time Was 5"3s5c 
<targ THEN PEINT "You g 


>PRINT "Now Try Again 


~ 


“= 


SOOO INEXT 


TINEEYS? routine. «= -» 


7 
Duo Draughts 


Computer Moderated Micro Draughts 


The idea is very simple — you must get rid of all your opponent's 
pieces, by jumping over them. To jump overa piece there has to be an 
empty space on the other side. 

At the start you can only move in one direction, that is up the 
board if you are White or down if you are Black. To move a piece the 
letter for its column and the number for the row is entered. Next the 
destination square is given in the same way. 

If it is not possible to jump over a piece then any one of your own 
draughts is advanced by one square to another square of the same 
colour. If a piece reaches the other side then it becomes a ‘king’ or 
‘crowner’. This means that it can move up and down the board and so 
is more powerful. 

The fact that you have to take a piece when possible does not apply 
according to some sets of rules. Some authorities require that should 
an opponent’s piece not be taken when possible, then the offender 
loses that piece. This is known as ‘huffing’. 

In this micro version the program will not accept an instruction 
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which simply moves a piece when there isa jump move available. The 
indicator will continue to show the same colour player until the jump 
sequence is complete. 

A game can be saved to tape at any stage by pressing [shift] S. A 
previously saved game is loaded at any time by [shift] L. During a 
game or after loading, the step mode can be selected by pressing 
[shift] 3. Pressing ‘Space’ will then step through from the beginning. 
Pressing [shift] 3 will end step mode and allow the game to be played 
on from that position. 


"ROARD CORE? 


et a ed 


17930 REM 2 be screen ““ffecedas 
20010 PAPEF O:PEN 1: BORDER @:MODE 1 
ZOOZO WINDOW Eig e2e0s 1,24 

20030 PAPER #1,23:2PEN #1,2°CLS #1 

ZOOBER PAPER Hoo? 

2OOd® TAG #2 

2007@0 1$=STRINGS (32,1429 

20030 LIS=STRING$ (3,22) 

20090 NS$=1$E+11$64+194+1164+1¢6+1194+194+115 
20100 FOR n=1 TO 4 

ZOL1® FOR m=1 TO 3 

290120 PRINT #1, 3 

Z2@120 NEXT m 

201d FOR m=1 TO 3 

Z2@150 PRINT #1,RIGHT#(n$, 21 )+LEFTS(ns, 3) 


3 

20160 NEXT m 

2@170 NEXT 

20200 FOR n=2 TO S23 STEP & 

20210 LOCATE i,n 

20220 LE=HEX$CC2G-ndo S319 

20220 PRINT 1%; 

20240 LOCATE nt+i,25 

2@250 PRINT CHES (C6éd+Cn4+19/3) 5 

20260 NEXT 

20270 WINDOW #3,27,39,2,15 

29230 PAPER #3,23:PEN #3,1°CLS #3 

23950 REM 33: 3 capt Ladd dds 

24000 LOCATE #2,5,4:1F play=1 THEN PRINT 
#3,"WHITE" ELSE PRINT #3, "BLACK" 

24010 LOCATE #3,14, canker ACM ~ 
24020 LOCATE #3,10,9:PRINT #3, , 
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2d0250 LOCATE #3,19,6 
24040 GOSUR 24500 
SAQ050 f$=n$ 

24060 LOCATE #3,10,9 
24070 GOSUB 2ZdSo@ 
S4O80 st=n 

241400 RETURN 

209730 REM ee > oR RRS ES 
21900 z$¢Ccount,1>=" 
31010 g$=""SSOUND 2,200,20,15:SOUND 2,14 
@,4d@,15 

31020 FOR n=1 TO 8 

21430 FOR m=1 To & 

31050 NEXT m 

21@60 NEXT mn 

31065 he=""sigse"" 

21070 FOR n=1 TA 10®@ 

21930 Hh$=h$t+z$¢n,1> 

S1O@EGS is=it+z$(n, 2) 

S1@90@ NEXT 1 

31100 H$=h$4+STRS$C count) 

21120 PRINT #7, 9% 

S113 PRINT #9,h% 

Z1l1id@ PRINT #97,i¢% 

S1150 CLOSEOUT 

31160 SOUND 2,200,200, ,15:S0LIND 2,190,4d0,1 


a 


31200 RETURN 

Sive@ REM IPS > load 
32000 g$=""ESMUND 2,200,260, 
@,4d0,15 

S2@15 LINE INPUT #9, 9% 

: 2@ LINE INPUT #9,h% 
S2025 LINE INPUT #9,14% 
32030 CLOSEIN 
S2O035 FOR n=1 TO 
320d@ FOR m=1 TO 
32070 NEXT m 
32080 NEXT 
32090 FOR n=1 TO 10@ 

22100 z#(n,12=LEFTSCh$,2z) 
32110 HS=KRIGHTHE CHF, LENCHS)—-2) 
SE2L20 z$Cn,Z)=LEFTS Cis, 2) 
SE21Z5 isg=RIGHT$¢(it,LENCis)—-Zz) 
32130 NEXT n 


Ae GP a a Pa Pat ast iat 
i i i iT 


mn 
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SBE1d@ count=VAL CHS) 

BELSO SOUND 2, 20@,20,15:SOUND 2,200,d0,1 
32160 GOSUR 2ooao 

321740 GOSUE 22Oao 

SELS@ LOCATE #2,10,6 
22200, RETURN, 


‘Board core’ should now be saved separately to be used also in Chess 
Duel. The listing which follows completes the draughts 57 program. 
1 REM <<cecee draughts <*> ISSI >2>3>>> 
2 FEM 
S@ SPEED WRITE 1 
19@@ GOSUBR 214000 
1010 FOR n=1 TO 100 
1020 z$(n,1)="  " 
1030 z$(n,2Z)=" “ 
1440 NEXT n 
114® GOSUB 2OOOO:GOSUR 22000 
1150 PRINT CHR (2239 ;CHRS¢(1)5'=GOSUR 22aa® 
1160 count=1 
1200 GOTO 170@ 
16400 gam= 
1610 FOR n=1 TO & 
16420 FOR m=1 TO & 
1630 IF méCn,ymo="B" OR méCnym>="D" THEN 
gam=1 
164d@ NEXT miNEXT w 
16460 IF gam=@ THEN GOTO 100@0@ 
1670 gam=@ 
1630 FOR n=1 TO 
16990 FOR m=1 TO 
170 IF mé¢Cn,mo="A4" OF m$¢n,ymo="C" THEN 
gam= 1 
1710 NEXT miNEXT rn 
1730 IF gam=® THEN GOTO 119@@ 
1750 RETURN 
1700 GOSUB 27aa@ 
2000 GOTO 19@®0 
9950 REM ¢oeoo332> black win ticeedded 
19@®® CLS 
19@1@ LUCATE 15,1@:PRINT "BLACK won." 
19@36 GOTO 11450 
10980 REM 333332 >> white win “<<4c¢dcdd4 


co 
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1140® 
11910 
119050 


CLS 
LOCATE 15,1@:PRINT "WHITE won." 
SOUND 2,300,25:SOUND 2,200,25:S0UN 


D 2,10@,25 


11960 
eplay 
11965 
11970 
1igeg 
11999 
an 
20290 
20200 
29310 
ZOR20 
ZO50@ 
29780 
219000 
21010 
219020 
21930 
210dA@ 
@,@ 

Z1a5@ 


21930 
22000 
22010 
22020 
22030 
229A 
2290350 
22060 
22070 
229050 
22070 


LOCATE S,2d:2PRINT "Do You Want A RF 
CY/N) 2" 

Zs (count, 1)="FF" 

asS=INKEY$: a$=UPPERS$ (at) 

IF AS%="Y" THEN DEM=1:GOSUB 35995: GOTO 1199 
IF AS="N" THEN GOTO 1199 

GOTO 11060 

INE @,@:INK 1,26:°INEK 2,1d:INkK 3,2 
PRINT #3," DRALUGHTS." 

PRINT #3," -ereccccco te 

LOCATE #3,2,6:PRINT #3,"FROM :-" 
LOCATE #2,2,97:PRINT #3,"T7C 2" 
FE TURN 

REM +eeEooR> initialize ¢<¢acedde 
DIM m#¢€3,3) 

DIM 2#(¢100,2) 

SYMBOL 240,9,0,9,0,15,127,255,255 
SYMBOL 241,90,0,9,0,2d0, 250,255,207 
SYMBOL Faz, 188,175,179, 17@,122,15, 


“o r 


SYMBOL 2743,61,227,31, 255, 25d, 240,0 


SYMBOL 244,0,1,9,87,99, 119,125,255 
SYMBOL S45,0,128.1dd, 234, 198,110,5 


SYMBOL 246,191,175,170,170,122,15, 
SYMBOL 247,125, 227,351, 255,254,240, 


FE TURN 

REM 3obeo o>? game start tadceddad 
FOR n=1 TO 8 

For m=1 TO & 
méCngm>=" " 

NEXT m 

NEXT wn 

FOR n=1 TO & STEP & 
m$CLynt+i1 9="A" 

m$C2Z ,n="A" 

MECC ZF yn+L)9="A" 
M$CS yn ="B" 
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22100 m$C7,nt+1)="B" 
22110 m$C6,n ="R" 
22120 NEXT n 

2217970 RETURN 

2290 
239000 
25010 FOR n=1 TO & 

23020 FOR m=1 TO 

ZSORO cH=mMFCn, gm)? c$=UIPPERS( cH) 

223000 IF c#=" " THEN GOTO 22100 

23050 IF cH#="A" THEN col=3 ELSE col=2 
23970 PLOT @,@,col 

25080 MOVE xyy 

239090 GOSUB 23500 

22190 PLOT @,9,® 

23110 x=x+d5 

23120 NEXT m 

231d K=Z5i y=y-dis 

2SL50 NEXT nike TURN 

23490 REM * * * piece * * * 

ZS500 AS=CHES (2d0)+CHRES (241) 

23510 d1is=CHR$( 2d29+CHRS( 2d5) 

23550 IF c#="C" OR c$="D" THEN d$=CHRS (C2 
445 +CHE$ (2059 td 1 S=CHRS (Sd69+CHRS (207) thi 
ff=O 

235600 PRINT #2,d0%3 

22610 MOVE x,y-16é 

22620 PRINT #2,c01%5 

22750 RETURN 

243500 ng$="" 

24510 at=INKEYS 

24520 IF ag="G" THEN FLIN 

Sd52d IF at="S" THEN GOSUB 31000 

2d526 IF ag="L" THEN GOSUR 32000 

24525 IF at="#" AND count?l THEN z$¢ coun 
t,1o.="FF"8GOSUB S500 

24530 at=LIPPERS (Cas) 

2d5d0 IF a$i"A" CR agée"H" THEN GOTO Sahl 
® 

24550 n$=aS iSOUND Z2,15Q0,5,15°PRINT #2,n% 


3 

24560 atg=INREEYS 

24570 IF agi"i" OF a$e"9" THEN GOTO 2dte 
a 


draw pieces te#iccde 
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20580 nG=n$+asiSQUuND 2,150, ,5,15:PRINT #3 
9AS5 

2d590 RETURN 

ZAISO REM PPPOE ESEE move Kote ee 
22900 GOSUB 246000 

25090 ro=sitico=s:GOSUB 25200 

25100 m$(s1,5)=m$(fFf1,f) 

25110 IF si=1 AND m#¢1,5)="B" THEN m#c1, 
S.="D"thutff=o 

25120 IF si=& AND m#(&,5)="A" THEN m#(&, 
SI=E"C"Ihuf f=o 

25125 SOUND 2,200,735 ,15 

25130 ro=slico=s:GOUSUB 2=520a 

25135 SOUND 2,100,10,15 

251d0 ro=flico=f:GOSUB 25200 

25150 m$Cf1l,f>=" " 

25160 RETURN 


Z5200 XEZSF y=S7O 


25210 FOR n=1 TO 8 
25220 FOR m=1 Ta & 


25230 IF n=ro AND m=co THEN GOSUBR 23200 
235200 x=x+ds 

25250 NEXT m 

2S260 “heeiiy=y-dée 

25270 NEXT 

2280 RETURN 

25300 cH#=m$Crn,m) 

25510 IF c#=" " THEN FETLPFN 

25520 IF cH="A" OR c#="C" THEN col=3 ELS 
E col=2 

ZoSd@ PLOT @,@,col:MOVE x,y 

25350 GOSUB 22500 

25360 RETURN 

235960 REM Free RE PEE? convert <f#acedcced 
SEOOO FHASCCLEFTS(F#,1)) 

26010 f=f-Ed 

26020 FLI=VALCRIGHT$(fF$,19> 

2E030 Ffl=9-Ffil 

2E0A0 s=ASCCLEFT#(5%$,1)) 

ZEOIO s=s—-6d4 

26060 si=VALCRIGHT$(s$,1)) 

ZE07O si=9-si 

26030 RETURN 

264090 REM 3oee>E> convert back *<4eeece 
26100 r$=CHE$(col+é6d) 
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26110 r$=r$+STR$C9-Llin)d 

26120 RETURN 

269780 REM $3532 oe? validate <<<<¢¢ce" 
27900 GOSUB 26000: huf f= 

27005 pe" B" tpi s="D" 

27007 IF play=2 THEN p="A"spis="C" 
27010 FOR y=1 Ta 
27620 FOR x=1 Ta 
27030 IF huff=1 THEN GUTO 27060 

27040 IF m$Cy,x)<ep$ AND m$Cy,x><ep1% TH 
EN GUT 2706@ 

27450 GOSUB ==Zaoe 

27960 NEXT 

27070 NEXT y 

27075 check=1 

270380 c#=m$(fl,f>tdt=m$¢sl,s5) 

27090 IF c#=" " THEN RETURN 

271900 IF (Cc#="A" OR c$="C") AND play=1 T 
HEN FRE TUFN 

27110 IF ¢c#="B" OR c$="D") AND play=2 T 
HEN RETURN 

27120 IF die" " THEN RETURN 

27130 IF c#$="A" AND sli fi THEN RETURN 
271d@ IF c#="R" AND s12f1 THEN RETURN 
27120 xd=s-fiyd=s1-fl 

27160 IF SGNCxdd*¢Cxd9=1 AND SGN yd *Cyd) 
=1 THEN GOTO 27490 

27170 IF SGN¢Cxdd*xdARg SSGNCyd>*yd THEN RET 
LIRN 

27180 ud=m$éCfit+cyd/2),f+tCxd/e)) 

27190 IF (x$="A" OR x$="C") AND play=2 T 
HEN RETURN 

27200 IF (Cxt="B" OF x$="D") AND play=1 T 
HEN RETURN 

27210 IF x$=" " THEN RETURN 

27220 ro=fitCyd/2)ico=ft¢(xd/2)2:GOSUB 252 
ao 

27230 lin=fit¢yd/2) i col=ft+Cxd/2) 

27240 méClin,col»=" " 

27250 GOSUB 26190 

27260 z$Ccount,l =r$izs(count,2)=rg$ 
27279 count=count+1 GOTO 27500 

274970 IF huff=1 THEN RETURN 

2735@@ check=@2RETUFN 
27930 REM 335332 R REE turn <ceeece dds 


ign) 
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moo mo 
SSN EES) 
oy Pos 
aS 


tN 
ss 


SES 
g 


ih BI BI ha ho 
m 


ne Mo om 


& 
— 
= 


ha 


SOS 
SEOMED 
ZS07@ 
unt=1 
2SO075 


ta ta 
moc 


Z9IOZO 
Z90AO 
ZIORO 
ZIOLO 
Z1ado 
31110 
B2O10 
32050 
BZO6Q 
BzZ9EO 
32000 
33010 
BOZO 


SIOdO 
SOR 
Hhesh) 
32060 


=h2$ ) 
SIOBO 
130 

S3OF@ 
3310 


=h2%) 


GUSUE 2d@@@thufft=o 

LOCATE #3,1,11:PRINT #3,SPCC(12) 
GOSUER 270aa 

IF check=® THEN GOTO 28050 

LOCATE #3,1,11:PRINT #35,"INVALID M 


SOUND 2, 3@@,S@,15:°GOTO 2aaoe 
GOSUB 2aaeao 
z$Ccount,1Lo=FSi eS count, 29=ss 
count=count+lilF count=1@1 THEN co 


IF huff=@ THEN GOTO 2&10@ 
y=slix=s:GOSUB 23000 

IF huff=1 THEN GOTO S4do0@ 

huf f=@2RE TURN 

REM 3233>>> both players @#e<cdede 
play=1 

GOSUR 2Eaao 

GOSUR 1600 

play=2 

GOSUB S80a® 

GOSUR 160 

RE TURN 

qGs=qGs+msCrn,m) 

OPENGUT "“!DRALIGHTS" 

CGPENIN "!DREAUGHTS" 
m$Cn,~m=LEF THC 7,1) 

G$=RIGHTS( g$,LENC gG$)~-1) 

FEM 3O>32>2>3>2>> huff <iedddeddds 
hut f=@ 

hig="AYthes="Cc" 

IF play=2 THEN hi$="B"ih2e$="D" 

IF yes OR m$Cy,x2="A" THEN GOTO 33 


IF xia THEN GOTO 22060 

IF (m#Cy-1,x-1)=h1$s OR mBCy-1,yx-1)> 
AND m$€y-2,x-2)=" " THEN fhuff=1 

IF x2& THEN GOTO 23030 

IF (m$Cy-1,xtio=his OR m$Cy-1,xt1) 
AND m#Cy-2,xt2>=" " THEN haf f=1 
IF ysé OF m$Cy,x="K" THEN GOTO 33 


IF x&{3 THEN GOTC 33110 
IF (m#Cy+1,x-1)=h1$ OF méCyt+1l,x-1) 
AND m#¢yt2Z,x-2)=" " THEN huff=1 


33110 
S2120 
=h2$) 
SS130 
SSR 7EO 
SA100O 
3SdO10 
Sd O2O 
3d 0320 
24040 
Sd O50 
2dO60 
24070 
FAO 
34090 
CVE" 
2410® 
34110 
3d120 
34130 
unt=Hi 
Sd1d@ 
34150 
34169 
Sd 920 
3I5IGIS 
35995 
35010 
SIOLO 
S5O30 
S2Od@ 
(4) 
SSOI® 
35060 
SIOGER 
S297 
SIO 


SIOI9O 


S120 
35130 
SS1S5 


So1d0 
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IF x26 THEN GOTO 22130 

IF (m#Cyt+1,xtlo=his Ge m$cyt+i,xt1) 
AND m$Cyt+2,x+2)=" " THEN huff=1 
RETURN 

REM 33532333 > go again “acceded 
LOCATE #3,19,6:PRINT #3,5% 

ft=sH 

LOCATE #3,10,9:PRINT #23," " 
LOCATE #3,19,%9 

GOSUR 2450 

s$=n% 

LOCATE #3,1,11°PRINT #3,SPCC12) 
GOSUER 2464000@:GOSUB 27075 

IF check=@ THEN GOTCH Sd119@ 

LOCATE #3,1,11°PRINT #3," INVALID M 


SOUND 2,23400,50,15:GCTO 2do@2z@ 
GOSUB 22000 
z$Ccount,LI=FS$itzS$Ccount,2)=ss 
count=count+lLiIF count=1901 THEN co 


y=slix=siGOSUk Z2a0@ 

IF huff=1 THEN GOTO 2da0o 

GOTO 28199 

REM 3333323322 replay ¢<<d¢qcdidd 
DEM=9 

COUNT=9: PLAY=1 

GOSUB 22000 

GOSUR 2@OOO:GUSUR 23@0@ 
count=counttl 

IF z$Ccount,1)="FF" THEN GOTd S550 


F$=z2$C count, 1) 'ss=z$Ccount,=) 
GOUSUB 260@@:GOSUB 25000 

IF f#=st THEN GOTO 35030 
count=countt+l 

at=INKEYS 

IF a$=""" THEN GOTO 35050 

play=2 

IF at="#" THEN GOTO SS500 

IF z#%Ccount,1>="FF" THEN GOTO 355¢@ 


F$=z2$EC count, 1)ist=z$C count, =) 
GOSUER 260@@:GOSUR 2500@ 

IF f#=s$ THEN GOTO 35030 
atg=INEEYS 
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35150 IF ag=""" THEN GOTO Shido 
S155 play=1 

SS160 IF at="#" THEN GOTO 35200 
35170 GOTO 25030 

35599 IF DEM=1 THEN RETURN 
35505 IF PLAY=1 THEN 299699 
S2510 GOTO 29030 


Now "MERGE? the ‘BOARD CORE’ routine- 


8 
Chess Duel 


Computer Moderated Micro Chess 


It will come as a surprise to many that before the age of chess 
computers and the microcomputer program, the game of chess was 
originally played by two human beings. 

An intelligent chess playing program would take up an entire book 
on it’s own, so it was decided to develop a program which would be of 
genuine use to anyone who enjoyed playing chess or would like to 
learn more about it. Chess clubs could also find the program helpful. 

The program can be used simply asa replacement fora chess board 
and pieces. The two players enter their moves in usual standard chess 
notation. However, extra features have been included to produce 
worthwhile advantages over the traditional board and pieces. 

The computer will examine all entries for legality of the move. 
Only moves which are the correct colour, are from occupied squares 
and move to a square which can be reached by that piece, will be 
accepted. Pieces which are ‘taken’ in the process are removed from 
the board. 

The program does not indicate ‘check’ or ‘mate’ and will allow 
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moves which reveal check. It is up to the humans to watch out for 
these. En passant is not automatically dealt with but the ‘remove’ 
option may be used by a player to take the pawn if required on his 
move. 

Castling is handled by the program. The present position of the 
king and rook have to be correct, with no pieces between them, for 
castling to be implemented. The routine will still castle if'a piece has 
previously been moved but returned to the correct square. Moving 
through check is not monitored. These latter conditions must be 
detected by the players. 

A useful feature is that the initial board may be set up for chess 
problems or chess variants and games of up to 100 moves can be 
stored and analysed step by step. Play can continue from any stage of 
a saved game or the’ present game can be re-started and then played 
from any subsequent move. Pawns are automatically promoted toa 
queen when they reach the appropriate rank. 


Summary of commands and options 


|. Set up board. Enter ‘Y’ when asked. Then sequentially from the 
top left, place each piece using a single letter. Move on using ‘Space’. 


White pieces: P=pawn, R=rook, N=knight, K=king, Q=queen, 
B=bishop. 
Black pieces: the same but with ‘Shift’ held. 


White always plays up the board. 
2. Remove piece. ‘Shift’ *R’ then enter the position. Play continues 
with the next player. 
3. Castle. ‘Shift? ‘C’ then direction ‘L’ or ‘R’. 
4. Save game. ‘Shift’ ‘S’. You must ensure cassette Record and 
Play are on before saving as prompts are not displayed. 
5. Load Game. ‘Shift’ ‘L’, then press ‘Play’. This loads the first file 
found. 
6. Step through game. ‘Shift’ ‘3’ initiates step mode. ‘Space’ steps 
through each move. ‘Shift’ ‘3’ then ends mode. 
7. Quit. ‘Shift’ ‘Q’ resets for new game. 
1 REM <eceece< chess <> ISSI foo REE 
2 REM 
1®@ CALL &BB@AZ2SPEED WRITE 1 
Soo SYMBOL 240,1,3,29,63,63,57,28,7 
Si@ SYMBOL 241,0,12¢,56, 252, 257,156,56,2 


2d 
S20 S 
530 S 
@, 254 
ad@® S 
S50 S 
16,24 
560 S 
570 S 
dO, 22 
Ta & 
590 § 


120 
640 S 
610 S 


doa 
620 


&20 S 


6d0 S 
650 
6, 205 
660 P 


100® 
1919 
1920 
19039 
194 
114® 
1iig 
1115 
11206 
1130 
=@ TH 
1140 
115q@ 
117 
Lise 
1170 
1300 
ban 2172) 
ZAOD 
ZOOOD 
ZOLZI® 
ZOSOO 
ZOBI® 
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VMBOL 242,7,7,4,51,16,127,64,127 
YMBOL 2d43,22d,22d,22d,2d5,120,254,3 


YMBOL 244,1,19,91,91,109,55,27,15 
YMBOL S15, 128,200, 138,218 ,182,256,2 
2) 

YMBCL 246,1,1,7,14,25,28,14,7 

YMBOL 247,129,128, 224, 240,120,120,2 
d 

YMECIL 24¢,0,0,3,7,15,351,9,3 

YMBOL 249,0,192,64,22d,176, 205, 232, 


YMBCL 250,@, petra tee 127,15 
YMBOL 251,0,0,152,152, 152,248, 240,2 


YMBOL 2S2,90,9,9,%, Oyo, hag f 

YMBOL 253,0,0,9,0,0,192, 224,224 
YMBCIL 254,5,4,3,15,9,3 1,16,31 

YMBOL 25S ,22d,22d,192,2d0,112,248,5 


RINT CHRSC235) 5 CHRSC1); 
CLEAR !GOSUB 21000 

FOR n=1 TO 10@ 
zé(n,i9=" " 


GUSUR 20o0ao 
LOCATE 27,1&:PRINT "DO YOU WISH Ta" 
LOCATE 27,2@:PRINT "SET A BOARD =" 
at=INKEY$: at=LUIPPERS (ag) 
IF at="Y" THEN GOSUR 3@@OO:IF check 
EN GOTQ 1170 ELSE GOTO 114@ 
IF a$<>"N" THEN GOTO 1120 
GOSUER 22@O@:GOSUR 22000 
LOCATE 27,12: PRINT SPC C14);5 
LOCATE 27,2@:PRINT SPCC1d);5 
PRINT CHR (C23) 5 CHR 1); 
count=1 
GOSUEB 27000 
GUTa 1500 
INK @,@:INK 1,26:INK 2,6:INK 3,3 
PEINT #3," CHESS DUEL." 
PRINT #3, "------------- 
LOCATE #2,2,6°PRINT #23, "FROM :-" 
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EORZO 
ZOO 
ZOWVEO 
Z1LAaD 
21919 
Z1OZ0 
Z1OS0 
21040 
219E® 
Z1OEM 
21079 
Z1L1O30 
Z1OI9® 
2114 
Zilia 
am a 2) 
ZL1is@ 
21250 
SLVa@ 
BEAO® 
ZZO018 
2ZORO 
ZZO3O 
2E0d@ 
ZEORQ 
OT a) 
22QO7@ 
maine 
22100 
22110 
ZLL2@ 


22125 


22120 a$= 


22140 
22145 
22150 
22160 
22170 
=) 


2 sO 
22010 


LOCATE #3,2,37:2PRINT #3,"T0 : 


FE TURN 
REM 32332322 initialize 
DIM m$CS,8)2DIM x#CS,5) 
DIM z2$(100,2) 

k$=CHES$ (24d09+CHES (241) 

K1IS=CHR$ (2d29+CHES$ (2d) 
qS=CHES$ (Sd49+CHR$ (2059 

qis=CHR$ (2d29+CHRS$(2d5) 
bS=CHE$ ( 2d69+CHRS$ (247) 

bhiS=CHES (2d 29+CHES C2459 
t$=CHE$ (2459+CHES$ (27) 

tis=CHE$ (24d29+CHRS$ (243) 
ré=CHES$ (250)+CHE$ C251 

ri¢g=CHRS$ (2d29+CHR$ (242) 
pé=CHES$ (252 )+CHES (253 > 


Pape ey fae 
PIS=CHES (25d) +CHES$ (S559 
FE TURN 

REM [leo 
FOF n=1 TO 
FOR m=1 Tt 
m$Cn,gm>=" 
XS Crm =" 
NEXT m 
NEXT wn 

FOR mn=1 TO & 
MSCS n=" P'S» 
MCT IH PEK 
NEXT ni 
RESTORE 22250 
FOR n=1 Ta & 
FREAD at 
m$C1 sn) =as 
x$C1, nm) =as 
LOWERS Cat) 
m$C3,1)>=as 
x$CS sn =as 
NEXT n 

FoR n=1 TO 14® 

z$Cn,i1>=" “eS n,2)=" 
NEXT nmniRETURN 

DATA FE, T; B, M,E,B,T,F 
REM 335% R eo draw pieces 
Sie Be 


FOF: 


game start 


$CEyn)="P" 
$07, nya a" 


ya390 
n=1 TO 


< 


soa ash 
*, a 
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25020 FOR m=1 TO 6S 
25020 cH=m$Cn,m) 
23@d0 IF c$=" " THEN GOTO 22100 
23050 IF c#<"a" THEN col=2 ELSE col=3 
23060 IF TESTCx-Z,y+2Z)=3 THEN col=col xa 


PLUT ®,@,col 
1 MOVE xyy 
23090 GOSUER 235a@ 
23100 PLOT 0,0,® 
SSL10O xex+d 
23130 NEXT m 
231d0 xeZoty=y-da 


23150 NEXT ni 

23250 RETURN 

23d90 REM * * * piece * * * 
ZE5OO cH=UPPERS (cH) 


23510 [F c#="E" THEN dAt=k$it dl $=k14 
SS520 IF c$="G" THEN d$=qti dlg=qlt 

23530 IF c#="B" THEN dAgeb$idig=b1$ 
23500 IF c#="T" THEN Ag=t$idl$=t1$ 
25550 [IF c#$="R" THEN dg=r$idit=ri$ 
25560 IF c#="P" THEN d#=p$idis=pid 
23600 PRINT #2,d%;3 

23610 MOVE x,y-16é 

223620 PRINT #2, 414%; 

SE750 RETLUFN 

240355 IF cas=1 THEN RETUFN 

Sd500 n$=""icas=@ 

24510 atg=INKEEYS 

Sd520 IF ag="G" THEN GOTO 1000 

24522 IF at="C" THEN GOSUB 246500 

2d524 IF cas=1 THEN FETURN 

SA4525 IF at="S" THEN GOSUE 3100 

24550 IF ag="L" THEN GOSUR 32000 

243535 IF ag="#" THEN z$Ccount,1).="FF"FGo 
TO SSaOa® 

24500 IF at="F" THEN GOTO 2550@ 

2d5d5 at=UIPPERS (at) 

24550 IF age" A" OF af e"H" THEN GOTO 2451 
7) 

24555 n$=aSi SOUND 2,150, 5,15°PRINT #3,n% 


9 
Zd560 at=INKEYS 
24570 IF ate"t" OR age"9" THEN GOTO 2dS6- 
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2) 
2dSE0 
ad; 
24590 
2ATEO 
ZAIDOD 
SIQOI@ 
2IOF® 
ZI190@ 
2114 


n$=n$taSi:SOUND F,1AS@,S,152PRINT #3 


RE TURIN 
FEM 33> : 
GOSUB 24000 

SOUND 2,30@,75,15 
ro=slico=s: a es 25200 
m$Csi,sr=méCfi,f) 

IF play=1 AND fi=1 AND m$Cf1,fd="p 


" THEN m$¢f1,f9="q" 


2aLZ0 


IF playe2 AND f1=5 AND m#Cf1,f9="P 


" THEN m#Cfi,f>="a" 


a13@ 
s140 
pr 2515 12) 
2 Z1L1E0 
225170 
2I20 
25210 
S22 
ie POR 2) 
225200 
22250 
2aZEQ 
25270 
ZRSEO 
SI3O@ 
2ao1@ 


t 
4 
ran) 
= 


25350 


Widen ORY at 0a) 
22450 
25490 
S350 


hibit ta hb hoon 
cain cau 
Bid hie e 
Sowrou4sd 


one ut ca an 


ro=slico=s:GOSUR 25200 

SOUND 2,190@,20,1%5 
ro=fl:ico=f:GOSUB 2S20@ 

m$Cfil,fo=" " 

RE TURIN 

MEET y=Sq@ 

FOR n=1 TO 5 

Fuk m=1 TO 

IF n=ro AND m=co THEN GOSUB 25300 
K=Ex+dis 

NEXT m 

4 SEZs y= yr de 

NEXT wn 

FEE TLIFIN 

cH=m$ Crim) 

IF c#=" " THEN RETURN 

IF c#<"a" THEN col=2 ELSE col=3 
IF TEST¢Cx-2,yt+t2)=3 THEN col=col Xda 


PLOT @,@,col?tMQVE x,y 

GOUSUE 23500 

FEE TURIN 

REM 

REM * * * remove * * * 

SOUND 2,340,4@,15:SOUND 2,400,50,1 


WINDOW #4,235,d0, 22,24 
PAPER #4,@:PEN #4,1 
INPUT #4,"Piece ",f% 
fF $=LIPPERS (FS) 
s$="A1":GOSUER 26000 
GUSLIB 23000 


25550 

Pee ba lod) 
25570 
S35 5280 
25590 
25600 
ZaIG1O 


Biba bo 
iy 
od 
ese 
od 


a 
S 


ty 
en fs ta Na 
S 


Qo & 


26050 
2e070 
ZEOSD 
ZE100 
26130 
ZELER® 
ZELE0 
ZE170 
SELE0 
ZEAE 
ZEIOO 
26503 
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m$Cfil,fo=" " 
zHCcount, 1 =fH$iz$C count, 2 =Ffs 
count=count+i 

IF count=191 THEN count=1 

CLS #4 

GOSUBR 232000 

IF play=1 THEN play=2:GOSUB 25000 
GOTO 1500 

FEM 3D EDD? ? convert “acteecnad 
FHEASCCLEFT#¢(fFf%,1)) 

f=f-éd 

FLl=VALCRIGHTS( fH, 19 5 

fl=9-fil 

s=ASCCLEFT$ (54,19) 

s=5-64 

s1L=VALCRIGHT#$(s$,1 >) 

s1=9-sli 

FE TURN 

FS=CHESCF+EGI+HEXSC9-F1,1> 
s$=CHES(st+6d)+HEX$¢97-s1,1) 
Zz$Ccount,1).=f% 

z$Ccount,2 =ss 

count=count+i 

RETURN 

REM Aaa ice castling <fceeende 


SCILIND 2,600, 25,15 MISCUND 2,d@0,25,1 


SsSOUND 2,200,25,15 


26510 
ZES2ZO 
6510 

ZE53® 
26535 
265d 


as=INKEY$i as=LPPERS (as > 
IF a$oe"L" AND a$<e"R" THEN GOTO 2 


PRINT #3,a% 
n$="C"+a$icas=1i RETURN 
S$="AS" s as=RIGHTS$(F$,1)2GCSUB 2600 


@scheck=1 


26545 
Pie) 
>it) 
26550 
RM) 
a ae 
26560 
TURN 

26570 
TURN 


IF (play=1 AND a$="L" AND m#$(&,1)< 
OR (play=1 AND a$="R" AND m$C8,3)< 
THEN RETURN 

IF (play=Z AND a$="L" AND m$(1,1)< 
CR ¢play=2 AND a$="R" AND m#(1,4)« 
THEN RETURN 

IF play=1 AND m$(S,59<2"k" THEN RE 


IF play=2 AND m#C1,5922"K" THEN RE 
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265735 auslien=7:IF play=1 THEN lin=& ELS 
E lin=1 
26580 IF atg="L" THEN au=-lien= 
26590 FOR n=Stau TO en STEP au 
26600 IF méClin,nd2>" " THEN n=en RETURN 
26620 fil=lintf=Sisi=filis=s+eean 
26634 GOSUB 22O0o 
26600 m$Cfi, fo =" "EmSCsi,sy="k" 
266405 GOSUB 26100 
26650 IF lin=1 THEN m#Cs1,s5)="K" 
2OBS5 $C count, L="CC"rz$C count, 2="CC"s 
ount=count+i 
6660 fl=lin:f= Sees Pal Veer as 
ae méCfi,fo=" “EmSCsl,ysoe"r 
GOSUB 26140 
° IF lin=1 THEN m#(51,5)="RF" 
= GOSUR 22000 
Z check=@: RETURN 
26980 REM  ? Pe? validate <fcececed 
27000 GOSUB 2Eaa@ 
27010 check=1 
27920 cH=m$ Cf1,f>sds=m$Csi,s> 
27030 IF c#=" " THEN RETURN 
274040 ITF c#>"Z" AND play=2 THEN FETURN 
279050 IF c#<"a" AND play=1 THEN RETURN 
270355 IF dAg=" " THEN GOTO 27100 
27060 IF As? ee AND play=1 THEN FETURN 
27070 IF dgi"a" AND play=2 THEN RETURN 
27100 c#=LIPPERE( cH): d$=UPPERS (dt) 
27110 ITF dg="K" THEN RETURN 
27150 IF c#="P" THEN GOTO 27300 
2716 IF c#$="R" THEN GOTO 27400 
27170 IF c#="T" THEN GOTO 2750@ 
27150 IF c#="KB" THEN GOTO 2740 
27190 IF c#="Q" THEN GOTC 27700 
27200 IF c#="K" THEN GOTO 27500 
27230 check=® 
27240 IF c#="K" OR cH="P" CR cH#="T" THEN 
RE TURN 
27250 GOUSUER 2770®@ 
27260 RETURN 
27290 REM * * * pawn * * * 
27300 IF play=1 AND s12f1 THEN RETURN 
27310 IF play=2 AND fi%si THEN FETLIRN 


ee ee 


Pp cP oS e 
nS Se 
oo 


= 


27320 
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dis=SGN¢sil-fld*¢si-fil>2IF dis=1 TH 


EN GOTO 27375 


27330 
273d@ 
272590 

THEN 
27360 

THEN 
27370 
27375 
27377 


IF dis?2 THEN RETUFN 

IF sof THEN RETURN 

IF play=2 AND f1=2 AND m$C2,f9=" " 
GOTO 27 BSS 

IF play=1 AND f1=7 AND m#¢é,f)9=" “ 
GOTO 27385 


FE TURN 
IF s=f AND das=" " THEN GOTO 273o5 


EN GOTO #7365 


27380 
27385 
273990 
Z740@ 
27485 
27490 
27500 
ga 

27510 
3a 

27520 
3a 

273550 
Pata) 

27540 
Hei) 

27S 
3a 

27560 
Bo 

27570 
3@ 

27575 
27330 
27590 
27E0@ 
Z2761@ 
27620 
27605 
27690 
Z770® 
27710 
27720 


FE TURIN 

GOTO 27220 

FEM * * * rook * * * 

IF fileesi AND fees THEN RETURN 
GOTM 27230 

REM * * * knight * * * 

IF sl=fit+=2 AND s=f-1 THEN GOTO 275 


IF si=fit+te AND s=f+i THEN GOTO 275 
IF si=fi-2 AND s=f-1 THEN GUTO 275 
IF si=fi-2 AND s=f+1 THEN GOTO 275 
IF si=fiti AND s=f-2 THEN GOTO 275 
IF si=fit+i AND s=f+2 THEN GOTO 275 
IF si=fi-1 AND s=f-2 THEN GOTO 275 
IF si=fi-1 AND s=f+2 THEN GOTO 275 


FE TLPIN 

GOTO 27230 

REM * * * bishop * * * 
xd=f-sixd=SGNC xd exad 
yd=fi-sityd=SGNCydd*eyd 
IF xd<>yd THEN RETURN 
GOTO 27230 

REM * * * queen * * * 
xd=f-sixd=SGNCxdd*exd 
yd=fil-siltiyd=SGN¢yd)>*yd 
IF xd=yd THEN GOTO 27785 
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277350 
27785 
27790 
ae 7 Hag 


IF fi<ssi AND fees THEN RETURN 
GUT 27230 

FEM * * * king * * * 

IF SGNCfi-sid*¢fi-sideed AND SGNCF 


~sd*CF-s)ee1 THEN RETURN 


27685 
27890 
Z27IOO 
27910 
27915 
27920 
27925 
27930 
27940 
27950 
27960 
URN 

Z797@ 
27 ISO 
BAO” 
2R005 


ZaQ1@ 


GOTC 27220 

REM * * * check path * * * 
nd=Oimd=a@ 

IF fi*%si1 THEN nd=-1 

IF sitfi THEN nd=1 

IF fs THEN md=-1 

IF sf THEN mad=1 

cn=flicm=f 

cn=cntnd? cm=cmtma 

IF cn=s1 AND cm=s THEN RETURN 
IF m#Ccn,cemoe2e" " THEN check=1tReET 


GOT 27940 
REM 2335 >R ROO EEE turn Sod eee decd 
GOSUB Zde@oa 

LOCATE #3,1,11:PRINT #3," 


IF cas=1 THEN GOSUB 265d ELSE GOS 


UB 27000 


ZaOZO 


nt SEF stl, NS 


ZEO30 


OVE" 


unt=1 


ZOO 


=e et) 
a 


Sr - 
~~ 
=, 
= 


Pi Ly hae 


as) 


= 

Sr 
—' 

Qe 
‘= 


CO A RES 0 
aaigcas 
S 

ses 


S 
& 
Ss 
— 


IF check=@® THEN GOTO 2A@h@ 
LOCATE #3,1,11:PRINT #3," INVALID M 


SOUND 2,500,d0,15,0,0,20:GOTO 2800 


IF cas=1 THEN GOTO 2eo9o 
z$Ccount,1>=f% 

z$Ccount,2)=ss 

count=countt+itIF count=1@1 THEN co 


GOSUER 2500 

FE TURN 

REM 332>>5>> both players <4<4¢e" 
play=1 

GOSUB Z2Ea@aa 

play=2 

GOSUB 2aoa® 

RETURN 

FEM ?3>33>>2>2>2>> set board “ficecee 
KSI y=3790 


FOR n=i1 Ta & 
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30020 FOR m=1 TO & 

SOO3@ SOLIND 2,29, 20,15 
SOOO meCrn,m>=" "txS(n m=" 
SO@SEO GOSLIBR BSOhO® 

30130 PLOT @,0,@ 

S@1d0 x=xtde 

30150 NEXT m 

SO@160 x=e2oty=y-de 

20170 NEXT n 

S@18@ LOCATE 27,18°PRINT "IS THIS O.k. 

39190 LOCATE 27,20:PRINT SPCC1id) 

ere at=INKEY$!: a$=LIPPERS$ (at) 

Z IF a#t="Y" THEN check=@: RETURN 

ae IF a$="N" THEN check=1:RETURN 

20230 GOTC So2zao@ 

304970 REM * * * input * * * 

30500 PLOT @,@,2 

S@510 MOVE x, ,ytPRINT #2," 9"5 

SO@S20 dAS=INKEY$: cH=UPPERS CAS) 

2O53@ IF dAg="" THEN GOTO 30520 

30540 PLOT @,9,2 

20550 MOVE Ray UE RENT #2," "5 

SOS560 IF c$<e"R" AND c#ie"N" AND c$ie"R" 
AND c#<2"Q" AND c#<2"E" AND c#io"P" THE 
N FE TUFN 

30570 SOUND 2,100,20,15 

ZOS580 IF dt="n" THEN As="t" 

SOSIO@ IF dAgS="N" THEN As="T" 

SO600 mbCrn Pa  Y=HAs 

SO60R “EC ym) HAs 


30610 ch=As 

SO6E20 IF c#<"a" THEN col=2 ELSE col=3 
30630 IF TESTCx-Z2,yt2>=3 THEN col=col Xa 
Food 

34640 PLOT @,@,col 

S@650 MOVE xyy 

20660 GOSUB 2ER0@ 

30670 RETURN 

31940 gt=gF+mECn,mMI+tKSCN,M) 

21110 OPENOUT "'CHESS" 

32010 CGPENIN "!CHESS" 

32050 méCngm)=LEFTS( GF LP xSCnymI=MIDSCY 
$,2,1) 

32060 g#=RIGHT$( g$,LENC gG$)—-2) 
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SS5@OO count=@iplay=1 

35010 FOR n=1 TO S:FOR m=1 TO 8 
SOLS méCn,md=xsCn,m) 

25020 NEXT m:NEXT vn 

SS@O2S GOSUBR 2OOOo:GOSUBR 22AOaOao 
S2930@ count=comunt+l 


@ 

S5O5Q0 FfF$EzH$Ccount, 1 ish=z$C count, =) 
S5060 GOSUB 24é0OO:GOSUB ZBa0@ 
S5O7@ count=countt+i 


Sd9750 FEM 33333373333 replay *ittscaiess 


SS@d@ IF z$Ccount,1>9="FF" THEN GOTO S550 


35075 IF z$Ccount,19="CC" THEN GOTO S503 


@ 
SSO80 at=INKEEYS 
25090 IF at=""" THEN GOTO 35050 


SSO9R play=z 
S510@ IF a¢g="#" THEN GOTO S550 


35110 IF z$Ccount,12="FF" THEN GOTO 3550 


2) 
SI1l20 Ff$=zHCcount, Lo iss=z$Ccount,=) 
BSS5150 GOSUB F4OOO:GOSUB 2eaa@ 


SSL35 IF z#$Ccount+i,19="CC" THEN count=c 


Oount+teIGOTO ZS11@ 

S51d0 ag=INKEYS 

25150 IF ag="" THEN GOTO 35140 
SSi55 play=1 

S516 IF atQ="#" THEN GOTO 35500 
22170 GOTO S5@3@ 

S5500 IF play=1 THEN GOTO 1500 
25510 GOSUBR 2S0@@:GNTO 1500 


Now ‘*MERGE’? the °BROARD CORE? routine. 


9 
Gustavus 


A Novel Strategy Game for Two 


As far as I am aware this is the first computer implementation of 
Simple Simmons, a game usually played with pencil and paper. 

Simple Simmons or Sim was invented bya chap called Gustavus 
Simmons. We have decided to call this computer version of the game 
Gustavus as it sounds more grand than its paper cousin. 

The game requires players alternately to draw a line between two 
points. The first to form a triangle of his own colour, whose points 
each rest on one of the original points, is the loser. The trick is to force 
your opponent into making the fatal triangle first. 

The computer will take care of the turns together with the colour 
changes and will indicate the winner when a triangle is formed. 

Lines are drawn by moving the flashing cross, clockwise or anti- 
clockwise, using either left or right cursor keys or joystick. When the 
cross is on the first point from whicha line is required the copy key or 
fire button is pressed. A bleep signifies acceptance of the line origin. 
The cursor is next moved to the destination location, then as the copy 
key or fire button is pressed the line will be drawn. Ifan invalid line is 
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attempted a sound will indicate the fact. New start and finish points 
will then be required. 

The game cannot end ina drawand there is no apparent ad vantage 
gained by being the first player. This game is very good for 
developing spacial awareness! 


1 REM <<< gustavus “<*> ISSI/JIM #o3ee 
2 REM 

19@@®@ GOUSUER 21900 

114@® GOSUB 2a@o® 

111 GUSUE 22000 

1290 GOUSUB 26009 

130@ FOR n=1 TO 100® 

1310 NEXT n 

1390 IF play=1 THEN win=2 ELSE win=1 
140@ LOCATE 14,24 

1d1@ IF win=1 THEN PEN 2 ELSE PEN & 
ldz2@ PRINT "PLAYER "swings "won [" 

1d43@ a$=INKEYS 

ldd@ IF ag=""" THEN GOTO 1430 

id5@ INK 1,26 

1460 GOTO 1104 

199SO REM FoRSS SESS screen ama 
20000 INK @,@:INK 1,26:°INK 2,621INE 3,20 
Z2@@1@ BORDER @:PAPER @:PEN 1: MCIDE 1 
20020 LOCATE 17,1?:PRINT. "GUSTAVUS" 
20030 LOUCATE 16,2°PRINT "eer" 
200d@ FOR n=1 To & 

20@@030 PLOT pen, l>,pcn,2),1 

20060 DRAWE @,3:DRAWR —3,@ 

20070 DRAWE @,-S:DRAWF c,@ 

20080 NEXT n 

29090 LOCATE 1,19 

2010@ PEN 2 

2@11@ PRINT "PLAYER i" 

20120 LOCATE 32,10 

24120 PEN 3 

2@1d@ PRINT “PLAYER 2" 

20150 TAG #3 

20160 PRINT CHR (C23) >CHRSC1) 5 

20300 RETURN 

20980 REM 333333372 initialize <<<<aeece 
2100 DIM pCc6,2) 

21010 RESTORE 21900 

219020 FOR n=1 TO 6 
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21@3@ READ pcn,1d 

21440 FREAD pon, =) 

Z21@S@ NEXT mn 

2106 DIM d¢é,6) 

210970 RETURN 

21100 DATA 320,300,dd0,2d0,dd0,110 
#1110 DATA 3290,50,200,110,200,2d0 
ZL9SO0 REM 3335323 >> start game teiccded 
22000 FOR n=1 TO 6 

22010 FOR m=1 TO & 

22020 d(n,m)=a 

22030 IF n=m THEN ddn,m>=S 

22040 NEXT m 

22050 NEXT m 

22250 RETURN 

22950 REM FeooooES joystick 4eidecdegs 
23000 le=@2ri=O:fi=0 

23010 a=JOY(@) 

224020 b=IOYCL) 

25030 a=a CF bh 

23040 IF ¢a AND 4)=4 THEN le=1 

23050 IF Ca AND S9=8 THEN ri=1i 

22060 IF Ca AND 16)=16 THEN fi=1 

23070 at=INKEYS$ 

23080 IF a$=CHRE$(2d2) THEN le=1 

23090 IF at=CHR$(2d3) THEN ri=1 

23100 IF at=CHR#&C22d) THEN fi=1 

23120 FOR p=1 TO S@SNEXT pp 

23150 RETURN 

23980 REM 3 ooo PDP move oo 
24000 point=1:IF play=1 THEN PLOT @©,@,2 
ELSE PLOT @,9,3 

24010 MOVE pCpoint,1)-1O,pCpoint,29+1@ 
24020 PRINT #3,CHR#(159) 5 

24030 GOSUB 2300® 

240d@ IF fi=1 THEN GOTO 24150 

24050 MOVE pCpoint,1>-1O,pcCpoint,2)9+19 
2d@60 PRINT #3, CHRES(15'7); 

24070 IF le=1i THEN point=point—-1 

24050 IF ri=1 THEN point=point+l 

24090 IF point=7 THEN point=1 

24100 IF point=@ THEN point=6 

Z2d120 GOTC 2410 

24156 SOLIND 2,200,50,15 

24160 FOR w=1 TO 2a@ 
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24170 bS=INEEYS 

24150 NEXT w 

24190 RETURN 

Zd200 MOVE péfro,1)-14,p fro, Z +10 

2d210 PRINT #3,CHRSC15°9) ; 

Zd227O MOVE pCdes,1)-10,p(des,Z2)+10 

2d230 PRINT #3,CHRSC15'9);5 

24250 RETURN 

2A980 REM $eboP SRE DSP turn tides ddd. 
25000 GOSUER 2d000 

25010 fro=point 

25020 GOSUR 2daao 

22030 des= =point 

25035 GOSUB Sd200 

25040 IF fro=des OF d¢fro,des)<>@ THEN G 
OT 25200 

25050 PLOT pCfro,1>,pcfro,2) 

Z5@60 DRAW pCdes,1)>,pCdes,=) 

25070 d¢des,frod=play 

25030 A¢Cfro,desd=play 

25090 FOR mn=1 TO & 

25110 IF d¢des,ynd=play AND dn, fro d=play 
THEN dead=1:GOSUBR 27000 

22130 NEXT n 

25190 RETURN 

25200 SOUND 2, 200,20, 15:SCLIND 2,30@,20,1 
22 SAUIND #,400,4d0,15 

Z2a210 GOTO 2500 

S5780 REM 

26000 dead=O: INE 

26010 play=1:GOSUR 2200@ 

26020 INE 2,6 

26030 IF dead=1 THEN RETURN 

26000 INK 3,20,11 

26030 play=2:GUSUB SID” 

26060 IF dead=1 THEN RETURN 

26070 INK 3,20 

S6030 GOTO 24000 

26990 REM 3>>e2 eRe Highlight “<<<ced¢ 

27000 PRINT CHR (23) 5 CHRECO) 5 

270@5 INK 1,&,15:INK 2,6:INK 3,20 

27010 PLOT pcCfro,l> pcfro,2),1 

27020 DRAW Pars lo sper, 2) 

27030 DRAW pCdes,1)>,pcdes,2) 

27@4d@ DRAW pCfro,l>spcfro,=) 


27030 
27060 
27070 
27O08® 
27100 


PRINT CHRS C23) pCHRSC1)5 
FOR s=2@@ TO 1 STEP-1 
SOUND 2,5,1,15 

NEXT 5 

RE TLR 
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fe) 
Dice Derby 


Shake! 


This is the first of a dice trio to be followed by Snake Eves and Craps. 
All three use the same central routines and a menu is provided to 
select between the games. This will produce an enjoyable set of dice 
games and save a lot of typing. 

Dice Derby is a race game in which the dice total is used to 
determine how far each horse travels. It can be played by two to four 
players and has an attractive shaking cup feature. 

The fire button is pressed to start the roll and again to finish. This 
means that each player can exercise control over the duration of each 
shake. 

The characters will race along until one is declared the winner. The 
winner is not determined until the last throw of the round and so 
some very close ‘photo finishes’ are possible. 

It is possible to end the game and return to the menu by pressing 
‘Shift’ ‘Q’ for quit. Another game can then be selected. 

Notes on typing in: the three dice games that follow can use the 
same routine called Dicerama! This should be typed first and then 
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saved onto tape. The games can then be added one by one. Of course 
it will not be possible to select a game from the menu if it has not yet 
been entered. 


1 REM <<<<<¢¢¢ dicerarma <> ISSI 3333332 
2 REM 

1@@ ENV 1,1,-5,19,1,5,5 

500 EVERY 500 GUSUB S@0@:GOSUER 22000 
10@@ GCISUER Z@@O@:PEN 2 

101@ LOCATE 4,3:PRINT “1 Dice Derby" 
192@ LOCATE 4,6!PEN 3:PRINT "2> Snake Ey 
es"rEI 

1930 LOCATE 4,9:PEN 4:PRINT "3> Craps." 
1050 a$=INKEY$:IF aé="" THEN GOTO 1050 
1960 SQUND 2,200,25,15 

1070 CIN VAL(at) GOTO 40000,50000,60000 
119® GOTA 105@ 

ZOOM PEN &tLOCATE 4,1@:PRINT "Press any 
Key" 

2@1®@ a$=INKEY$S:IF ag="" THEN GOTC 2010 
2030 GOTO 1400 

5OO® DI tag=INKEYS 

5Q1@ IF at="GQ" THEN RUN ELSE RETURN 


199SO REM D> >> FERED Sereen CCceec gence 
20009 RESTORE 20000 


20010 FOR n=@ To 15 
20020 READ a 

ZO@O3@ INK nya 

200d@ NEXT ni 

2O05@ DATA 0,26,18,2,6,24,20,3 

2OOE@ DATA 3,9,9,9,9,9,8,0 

20070 PAPER @:PEN 1:BORDER @:MODE @ 
20030 PRINT CHRS¢23) 5p CHRSCO) ; 

20@90 PLOT 10,10,1:DRAW 629,10:DRAW 629, 
19@:DRAW 10,190:DRAW 10,10 

2010@ PLUT @,@,1:DRAW 639,@:DRAW 639,200 
iDRAW 0,Z00:DRAW 0,0 

2@11@ PLOT 4@,d@,15:DRAW SO,3@:DRAW 120, 
3O@:DRAW 160,40 

20120 DRAW 130,16@:DRAW 190,155:DRAW 70, 
16@:DRAW do,da 

Z@1S@ PLOT 130@,160:DRAW 100,165:DRAW 70, 
160 

Z015@ PLOT 5S@,d45,12:DRAW 90,35:DRAW 130, 
S5:DRAW 170,45 
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20160 DRAW 1d@,165:DRAW 11@,16@:DRAW Sa, 
65:DRAW 50,45 
2@17@ PLOT 140,165:DRAW 110,17@:DRAW 3a, 
165 
2O1S@ PLOT 16@,d@,11:DRAW 120,S@:DRAW 16 
5,11@:DRAW 195,150 
20190 DRAW Z2@5,11@:DRAW 200,S0:DRAW 180, 
Ag 
20200 DRAW S25,45:DRAW 335,75:DRAW 330,14 
@SIDRAW 195,150 
2O2Z10 PLOT 60,50, *DFEAW 60, *=DRAW 100, 
SO: DRAW 100 eo: beau 60,50 
ZOZ2O PLOT 110,5@,15:DRAW 110,@:DRAW 15 
@, 801 DRAW 150,50:DRAW 110,50 
ZOZEO@ PLOT 6@,S@:DRAW GO, 9O:DRAW 120,90: 
DRAW 100,80 
20240 PLOT 110,S@:DRAW 130,9@:DRAW 170,9 
O:DRAW 170,60:DRAW 150,50 
@250 PLOT 17@,9@:DRAW 150,a@ 
20500 RETURN 
Z2O9EO REM P>>>RORRES rattle <<<<<eceede 
2100@ GOSUR 20090 
21@1@ INK 11,@:INK 15,@ 
21020 INK 13,Zd:INK 12,0 
21030 FOR q=1 TO ZS:NEXT q 
2104@ SOUND 1,200,1,15 
21050 INK 12,24:INK 13,0 
21060 FOR q=1 TO 25:NEXT q 
Z1@7@ SCIUND 1,100,1,15 
2116@ di=INTCRNDC1)*6)+1 
ZLL7@ dZ=INTCRNDC1)*6)4+1 
2119@ a$=INKEYS:1IF a$="" THEN 21010 
21200 INK 13,@:INK 12,@ 
21210 INK 11,24:INK 15,20 
Z122@ SOUND 2,15@,25,15 
21230 ch=d1:GUSUB 21dao 
Z124@ IF s¢€1)=1 THEN PLOT 70,72 
21250 IF s(€2)=1 THEN PLOT 70,65 
Zi26@ IF s¢3)=1 THEN PLOT 70,58 
21270 IF s(d)=1 THEN PLOT 95,72 
Z1iZ&@ IF s¢€S)=1 THEN PLOT 95,65 
Z1290 IF s(€6)=1 THEN PLOT 95,55 
21300 IF $(7)=1 THEN PLOT 82,65 
21310 ch=d2:GOSUB 21400 
21i32@ IF s€1)=1 THEN PLOT 11,72 


21330 
213d 
21350 
21360 
21379 
ZLSSO@ 
21390 
Z1do0@ 
21d05 
Zidio 
21ld2o 
Z1d3@ 
Zlddo@ 
21Lda@ 
21d460 
21d70 
21450 
Z1L50@ 
21519 
213520 
21530 
ZLSd@ 
2LSS0 
21920 
ZLOO® 
22050 
ZEd30 
ZLIOD 
ZE251@ 
22520 
22520 
225400 
22550 
227380 
Z3OO 
23010 
ZIOZO” 
Z3I93@ 
230d0 


Z3050 


IF 
IF 
IF 
IF 
IF 
IF 


s(Z2)= 
SC S)= 
s(d)= 
s(5)9= 
5(6)= 
s(7)= 


RE TURN 


IF 
IF 
IF 
IF 
IF 
IF 
TF 
FOR 


READ s(n) NEXT 


RET 
DAT 
DAT 
DAT 
DAT 
DAT 
DAT 
REM 


ch=@ 
ch=1 
ch=Z2 
ch=3 
ch=d4 
ch=S 
ch=é 

n=1 


IRIN 


1 THEN 
1 THEN 
1 THEN 
1 THEN 
1 THEN 
1 THEN 


PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 


THEN ch=1 


THEN RESTORE 
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119,65 
115,53 
1d@,72 
149,65 
140,35 


128,65 


21500 


THEN RESTORE 215190 


THEN RESTORE 


21520 


THEN RESTORE 21530 


THEN RESTORE 
THEN RESTORE 


TO 7 


MN 


A @,8,%,9,9,9,1 
A 1,0,9,%,9,1,0 
51,1,9,9,1 
A 1,@,1,1,0,1,0 
oka 1 O44 
ae ee oe Wk Ws ee 


A @,@ 


A 1,0 


21540 


BLSS0 


ooo initialize *<<ece0de" 


DIM scC7)?DIM pCd,SdIDIM o¢d) 


RET 
REM 


URN 


LOCATE 1,1 


F CIF: 
PEI 


n=l 
NT " 


Ta 2d@ 


Wy 
’ 


SCUND 2,2d1-n,1,15 


NE X 


T41 


LOCATE 1,1°RETURN 
players “<icccdcig 


REM 
GOS 
PRI 


UB 22 


NT "PLAYERS 


ke ie hare 
eae 


sO@ 


at=INKEYS 


IF ag<"2" 


sou 


Gus 
FOR 
wecr 
NE X 


ND 2, 


UR 22 
n=1 
,1)=@ 
Torn 


MR agée"d" 


3 (B-d) 


THEN 23020 


200,25, 15:SCLIND 2,200,25,1 
S:SOUND 2,100,25,15 


aO@ 
Ta 4 


pilay=VAL Cas) 
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23100 FOR n=1 TO play 
251190 o€nd=1 

23120 NEXT wn 

2351230 FOR q=n TO 4 
2351d0 of( q)=@ 

23150 NEXT q 

25250 RETURN 

SI7a0 : 
A0000 
40010 FOR n=1 TO 4d 

4OO20 pn, LHR pdr, S)=38d—-n¥e Se 

4Q@@30 NEXT rn 

44035 PEN 6 

4OO4d® RESTORE do1a@ 

490050 FOR n=l TO 12 

40052 IF n=d THEN PEN & 

40054 IF n=1@ THEN PEN 6 

409%60 FREAD a 

40070 LOCATE 24, 

dO@O2@ PRINT CHES Cad 3 

@ NEXT wn 

401900 DATA 225,149,149,79,73,798,73,82,72 
pidv,1ldy,191 

40150 GOSUE d7a@o 

40200 FOR w=1 TO play 

d@204 PEN wtl 

49210 LOCATE 13,15:PRINT "PLAYER"; 

40220 LOCATE 15,17:2PRINT w 

44230 SOUND 2,200,50,15 

40240 at=INEEYS 

40250 IF at="" THEN GOTU d@zdo 

44260 PLOT 0,4,@:2GOSUBR 21230 

40270 GOSUR 2190@ 

402735 FOR d=1 TO (Cdlt+d2>*e 

4d@2eq@ SOUND 2,d@@,1,15°PRINT CHR$ (C25) 5CH 
R$C1)52:GOSUB d'700® 

40290 pw, lo=pcw,1 dtd 

440300 SOUND 2,200,1,15:GOSUB d37@oo:PRINT 
CHR € 23) 3 CHES (@) 5 

44310 NEXT a 

4@3350 NEXT w 

49360 win=0 

4@370 FOR n=1 TO d 

49350 IF win?® THEN GOTO dodao 

40390 IF pdn,yl)2570@ THEN win=n 


dice derby <<¢eneded 


4Odo00 
40410 
dod 
dadéa 
41050 
40510 
40320 
4OA30 
405d 
dOad® 
19600 
49610 
4O620 
4O6390 
dIO0@ 
497910 
497020 
47030 
47040 
49050 
49960 
47070 
49080 
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NEXT 

IF win=@ THEN GUTO doZza@ 
GOSUB 2Ssa 

PRINT " Player "swing" won 
RESTORE 4060 

FOR n=1 To 13 

READ a,h 

SOUND Z,a,b,is,1,9 

NEXT 1 

GOTA 2a0a 

DATA 219,590,250 ,20,2523,20,259,20 
DATA 253,290, 28d ,20,319,50,319,10 
DATA 284,20, 252,20,239,20,253,20 
DATA 254,20 

FOR n=1 TO 4 

TAG #1 

PLOT @,@,rn+1 

MOVE pdcngl>ypcn,Z> 

PRINT #1,CHES (234) 3 

TAGIOIFF 

NEXT 1 

PLOT @,@,1 

RE TURIN 


87 


il 
Snake Eyes 


Bank MEAWA Ss we 


Rattle! 


This is the second of the three dice games. Dice Derby must be 
entered first and then Snake Eves can be added. The instructions for 
throwing the dice are the same. 

The game is for two to four players and includes on-screen betting. 
At the start the target pot is entered, which may be between £40 and 
£400. The bank starts at £0. 

Each player then rolls the dice. Ifa double is thrown then the player 
wins the bank amount. If ‘Snake Eyes’ (two ones) is thrown then the 
player gets twice the bank total. The bank resets to zero when it pays 
out. 

After each round the bank gets £5 if the target set is below £200 and 
£10 if the target is above £200. 

The game continues until a player’s cash reaches the target score. 

It may be interesting to change the amount to the bank after each 
round to provide a larger ‘pot’! 


Sa000 
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FEM 323322222 snake eyes ¢<eeteeds 
GOUSUB 23000 


S0@1@ WINDOW #2,1,29,97,11:PEN #2,2 
S0@@Z20 PRINT " Enter Win Score ?" 

S030 INPUT #5,lim:1F limsd@® OF lim=d@ 
THEN GOTO S000 

S040 upda=S:GOSUR Z25@@IIF lim?20@ THEN 
upda=10 

S@@S5@ PEN Z2&LaCATE 3,1:°PRINT "1" 

39060 PEN 32LOCATE S,1:°PRINT "2" 

39070 PEN d4?tLOCATE 12,1:PRINT "3" 

30030 PEN StLOCATE 15,1:PRINT "a" 

SO@O7@ PEN GSLOCATE 1,2:PRINT STRINGS ( 20, 

45) 5 

S@1@@ PEN &&LOCATE 1,12°PRINT STRINGS( 20 
945) 5 

S@11@ PEN S:LacaATeE S:IPRINT STRINGS( 20, 

A5); 

IO@150 kit=@ 

3@170 kit=kittupda 

S@150 per= 


SO@LI@ 
SOI 
SOZOO 
ER" 

SO@21@ 
tat bal 2d Le 2a 


FOR mn=1 TO dt LOCATE n*eS-d,d 
PRINT pcr, l NEXT n 
PEN pertliLOUCATE 13,15:2:PRINT "PLAY 


LOCATE 15,17°8PRINT per 
GMSUE 505002 1F pCper,i>>lim THEN G 


QTO Baa 


sal 2 a 2) 
1794 
SO24@ 
SOS0® 
TOS1®@ 
SOSA0 
it 
SOSA® 
SOSé0 
SOR7Y 
IOSIO 
@ 
SORIA 
FMEA 
a! 

aM 1@ 


a 


per=pert+titIF persplay THEN GOTO 2a 


GOTO S@1ige@ 

at=INKEYS 

IF ag=""" THEN GOTO S@20@ 

CLS #5:PRINT #5,"Bank stands at" 5k 


PLOT @,,@:G0SUB 21230 
GUSUE =1a00 

IF di=1 AND dZ=1 THEN GOSUE S@éao 
IF di=dz AND di<*i1 THEN GOSUB 5070 


RETURN 
SOUND 2,300,25,15:SQUND 2,200,25,1 


SOUND 2,19@, 25 ,15:°:SOUND 2, 300,25,1 
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SOELZO® 
IOE30 
UDEAO 
u@7a@ 
S 

Sa71@ 
pa) 

30720 
30720 
IO7AO 


ma@ 1@ 


pCper, 1 =pcper, lo tkhit%*e 

kit=0 

FE TURIN 

SOUND 2,4@@,25,15:SQUND 2,200,50,1 


SOUND 2,4@@,25,15:SCUND 2,100,50,1 


pCper,lo=pcper,1>+kit 
kit=0 

RE TURIN 

win=per 

GUTTA dodo 


~and Roll! 


Here it is, the micro version of the American dice game featured in 
gangster movies and |TV shows. 

Two to four players can now pretend that they are in Las Vegas 
courtesy of the Amstrad. 

At the start of the game each player has £100 (you can change it to 
dollars if you want more realism!). A bet is placed up to the total 
holding of each player on his turn. Then the fun begins. 

Ifa 7 or Il is thrown first then they are paid evens. If 2,3 or 12 is 
thrown the turn ends and the stake is lost. Any other total becomes 
the point. This is then the total to roll for. 

The player continues to roll until the point is reached, paying 
evens, or a 7 is thrown in which case it is the next player’s turn. 

If a player loses all his money then he drops out and the game 
continues until only one player is left. 

Pressing ‘Shift’ ‘Q’ will quit it any time. 

This listing requires that the Dice Derby listing is entered first, 
since it uses the same start routines. 
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iy 

5S. 
SS) 
Bid 
a2 


it 
oss 

& 

cf 

S 


945) 5 
E0085 
45)5 

E9070 
69030 
6909 
601900 
&01 50 
6016® 
E0170 
60150 
6@185 
é@ Z a 


Ce SC LOLOL 


GOUSUB = aoe 


PEN Z:LOCATE 3,1:PRINT "1" 
PEN 3!LOCATE 3,1:PRINT "2" 

PEN 4:LOCATE 13,1:PRINT "3" 

PEN S:LOCATE 1i8,1:PRINT “a" 

PEN GtLOCATE 1,Z:PRINT STRING$(20, 


PEN 6:LOCATE 1,12°PRINT STRINGS( 20 
PEN S:LocATE 1,&°!PRINT STRINGS(20, 


WINDOW #5,1,20,9,11°PEN #5,2 
FOR n=1 To 4 

BC, 19=100 

NEXT n 

FOR w=1 TO play 

FOR n=1 TO d 

LOCATE n¥S-d ,adtPRINT pon, 
NEXT n 

IF pcw,l41 THEN GOTO &@200 
PRINT #5,"Player"sw3;"Bet =" 
INPUT #5 ,betetIF bet<1 OR hetepcw,l 


> THEN SOUND 2,200, 50,15:2:GOTO 60200 


60240 
E0250 
E0260 
60270 


60275 


PLOT ©,@,@:GOSUE SLER0 

GOSUE 21000 

tot=dit+ds 

IF tot=7 UF tot=11 THEN GOTO 61000 


IF tot=2 OR tot=3 UR tot=12 THEN G 


OTO 629000 


60330 
60340 
EO50@ 
603505 
60510 
40520 
E9530 


fpoint=tot 

PRINT #5," Foll again « - -" 
see iS at=""" THEN GOTO 6&@295 
PLOT ©,@,@:GOSUB 21230 

GOSUE es 

tot=di¢+ds 

IF tot=point THEN GOTO 61400 

IF tot=7 THEN GOTO 62000 

GUT 4027590 

NEXT w 

flag=9: con=@ 

FOF n=1 TO play 

IF con=1 THEN GOTO 403540 

IF pcn,yi>2@ AND flag=1 THEN con=t1 
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60535 IF pdn,l1)>@ THEN flag=1 

E0500 NEXT rm 

£0550 IF con=1 THEN GOTO 46015 

69568 win=@ 

60570 FOR n=1 TO play 

60580 IF wins ?@ THEN GOTO 6060@ 

60590 IF pdn,l)20@ THEN winsn 

64600 NEXT n 

606190 GOTO d@dso 

61000 CLS #5:SQUND 2,200,205 ,15:SQUND 2,2 
@O,25,15:SOUND 2,1900,4d0,15 

61010 PRINT #5," You win !" 

61020 pCw,1ld=pcw,lothet 

61430 GOTO &o50@ 

62000 CLS #5:SOUND 2,100,205, 15:°SQUND 2,2 
@O,25,15:2:SOUND 2,400,d0,15 

62010 PRINT #5," You lose !" 

B2020 pCw,lo=HpCcw,lo—-het 

62030 GOTCU &605a@ 


13 
Pontoon 


PLAYER i PLAYER & 


fepg' ya" Pe ae : 
= 8 


BMIST MUTT avy 


A Pair can Break the Bank 


In this computer version of the well known card game the bank starts 
with £500 and each player has £100. One or two players each play 
against the bank and aim to get a total of 21, which is Pontoon. 

One card is first dealt face up to each player and one face down to 
the bank. A bet up to the total cash available may then be placed. The 
next card is dealt and various options are given to each player on their 
turn. 


‘S’tick. If the total is 16 or over then pressing ‘S’ will pass play on. 
‘T’wist. If another card is required this option may be taken by 
pressing “T’. 

‘Buy. Used when a hand looks good, to double the stake. 

An ace will be taken to have the best value, i.e. | or 11 dependent 
upon the other cards. If at any time the card total exceeds 21 then play 
passes on. When both players have finished, the bank will then play 
its own hand to determine payout. It should be remembered that play 
is between the players and the bank, not against each other. 
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Wins and losses are calculated as follows: highest score is Pontoon 
with two cards, e.g. 10 and a Queen. The next highest score is a 5-card 
trick, which may be any five cards which do not exceed 21 in total. 
Pontoon withany card permutation is the third high score. If none, of 
the above exist then the highest score wins. Where the bank’s total 
equals that of a player then the bank wins. 

The game continues until each player has lost all available cash or 
until the bank is bust. ‘Q’ for Quit may be used to end a game 
prematurely. 

This program shares many lines with the following card games. 
The routines common to all should be entered first, saved and then 
the remainder entered. 

"CARD CORE? 


9IIO REM %>s> GENERATE PACK ¢faceceddde sd 
19@00 FOF suit=1 TO d 

1@@®OS FOR car=1 TO 13 

194010 pac (suit, car )=CHRS(suit+225) 
1@@15 IF carsii AND car?i THEN pac#(suit 
, Car d=pacé(suit, card +STR#¢ car) 

1@@16 IF car=1 THEN pact(suit,card=pacé¢ 
suit,card+" A" 

10@20 IF car=11 THEN pact#¢suit, car d=pacs& 
Csuit,card+" J" 

19@25 IF car=12 THEN pact (suit,car)=pac 
Csuit,card d+" o" 

19@3@0 IF car=13 THEN pacé(suit,card=pact 
C(suit,card+" K" 

19@25 NEXT car 

1904 NEXT suit 

16@d45 RE TUFN 

19490 FEM 3232222 GHUFFLE PACK <feceee% 
19500 FOF n=1 TO Se 

19305 pacno=entav¢nj=1 

10510 NEXT n 

1OS15 FOR a=1 TO 3a 

10520 wi=INTCRENDC1>*519+4+1 

1@S25 nAZ=INTCRNDC Lo *¥S19+1 

10230 cc=pacnl) 

1O@3355 pacnid=pacnZ> 

193540 paCnZ)=cc 

1@245 NEXT a 

19350 RETURN 
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19990 FEM 33233>>> DRAW CARD <aencacen 
14995 PRINT CHRE$<¢ 24); 

11@@® LOCATE cx-1,cy 

110@5 PAPER @:PEN 1:PRINT CHR# (230) 5° FOR 
z=1 TO S:PRINT CHRS(22d)5°NEXT 22 PRINT 

CHES (231) 

11410 LOCATE cx~i,cyt+tl 

11020 PRINT CHR ¢C23a);:PAPER 12PEN @:PRI 

NT FIGHT#(pacéCsuit,card,2)3 

11921 IF LEFT#(pac#(suit,car),1)=CHRS(C 22 
7) OF LEFT#(Cpact(suit,car), 1 =CHE$ (225) 
THEN PAPER 1:PEN 2 ELSE PAPEF 1:PEN © 


11@22 PRINT LEFT#¢pac#Csuit,car),1)35°PAP 

ER @:PEN L!PRINT CHR$(142) 5 CHR (143) 5 CHR 

$C S35) 

11@25 LOCATE cx-1l,cyt2 

11930 PRINT CHRS¢23d)5;°F0R z=1 TO S'PRIN 

T CHR ¢1d3>5;2NEXT 2z:PRINT CHES (C235) 
11@35 LOCATE cx-1l,cyts 

1194 PRINT CHRS (22d) sCHRS (143) 5 CHES C143 
DptIF LEFT#Cpac#( suit, car),1 .=CHRE$ (227) 

CF LEFT (Cpact#(suit,car), 1 =CHRS (225) THE 

N PAPER 1L°PEN 2:ELSE PAPER 1:PEN @ 

11445 PRINT LEFT pact (suit,car),1)52PEN 
L=PAPER @: PRINT CHR$¢ 143) 5 CHE $¢ 143) 5 CHR 

$CAS5S) 

1150 LOCATE cx-1,cytad 

11055 PRINT CHRé¢( 23d) 5°FOR z=1 TO S2tPRIN 

T CHES C1d3>5°NEXT ztPRINT CHRES¢( 2235) 

1160 LOCATE cx-1i,cytS 

11465 PRINT CHES (23d); CHES C142) ;CHRS¢C1d3 

>sS CHR (14395 °PAPER 1L12PEN @!2PRINT RIGHTS¢ 

pac#(suit,car),2)5;°PAPER @:PEN 1:PRINT C 

HE (235 

1197@ LOCATE cx-i,cyt+é 

119075 PRINT CHR®¢233)5°F0R z=1 TO SiPRIN 

T CHR$ (2259 5°NEXT 22: PRINT CHES (232) 

11976 SOUND 1,140,2 

110380 RETURN 

1117@ REM 3333> DRAW CARD BACK <<4e4 

11206 LOCATE cx-1l,cy:PEN 3 

11205 PRINT CHR$¢236)5:2FOR n=1 TO S:tPRIN 

T CHES (2d) 52:NEXT mi PRINT CHR#¢ 237) 

11210 FOR mn=i TO StLacaATe cx-i,cytrn 
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11215 PRINT CHR$¢242)5:°FO0R n=1 To S:PRIN 

T CHES ¢Sdd95 NEXT mniPRINT CHRé¢ 242) 

11220 NEXT wm 

11225 LOCATE cx-1,cyt6&:PRINT CHR C239) 5: 

FOR n=1 TO SPRINT CHRS(2d1)5°NEXT n : PRI 

NT CHR C235) 

11226 SOUND 1,2300,2 

11220 PEN 1°RETURN 

16990 REM 3333332 > CHARACTERS <t¢cdedced 

1700 SYMBOL 2274,0,255,255,2755,255,255,2 
,255 

17605 SYMBOL 225,255,255, 255,255,255, 255 

5 oie be ay@ 

17010 SYMBOL 230,0,63,127,127,127,127,12 

7.427 

17015 SYMBOL 231,0,252,25d, 25d, 25d, 25,2 

Sd, 25d 

17020 SYMBOL 232,25d,25d,25d, 254,254, 28e 

252,09 

17@25 SYMEOQL 233,127,127,127,127,127,127 

,63,0 

17430 SYMBOL 234,127,127,127,127,127,127 

,127,127 

17435 SYMBOL 235 ,25d,25d,25d,25d,250d, 254 

5 254 9 254 


1704@ SYMBOL 236,0,65,106,85,106,95,106, 


i oas SYMBOL 237,0,252,170,86,170,86,170 
ae SYMBOL 238,170,86,170,86,170,86,25 
ons SYMBOL 239,106,55,106,85,106,85,63 
eee SYMBOL 240,0,255,170,85,170,85,170 
17065 SYMBOL 2d1,170,85,170,95,170,85, 25 
5,0 


17@7 SYMBOL 2427,106,85,106,85,106,85,10 
17@75 SYMBOL 243,170,86,170,56,170,86,17 


17080 SYMBOL 2#4d4,170,65,170,85,170,85,17 


‘Card core’ should now be saved separately for use in other card games. 
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FEM << PONTOON 
DEFINT a-z 


DIM cx¢dd,cycd) 
DIM noc¢d) spldcZ) 
DIM plce(32,5),becs) 
DIM mo¢2@) ,pReoey 
SYMBOL AFTER 223 
GOSUR 179a@® 
® GOSUB 11500 


eee DON POR he 


1 

2 cc(1lp=20!cc(2Z)=5 
13 plcijy=1spl (2 =1 
15 GOSUE 10000 

20 GOSUE 10500 


ANDY / JIM 


mMoC1d=14O@!m062)=1OOl mc=aao 
Srcet3jye& 


21 CLS!IIF np=i THEN pl¢2>=0 


oe 


DIM paCS2)  ,aveS2),pac#(S,13),cc¢3) 


22 IF pl¢id=@ AND pl¢2>=@ THEN 22000 


23 IF pl ¢1)=@ THEN hec1)>=0 
24 IF pl¢c2)=@ THEN hec2)=@ 


25 GOSUB 12000 
S3@ cxeCLIFLSi cx CS See 


c 


i 


oa CYC) FSi cyCZ)= 
d@ bxEBiby=S 

d2 GOSUB 1LAh00 

45° FOR q=1 To np 
46 IF pl¢q)=@ THEN 35 
=@ GOSUB 1d@oo 

[1 GOSUB LEOa® 

= NEXT q 


S6& cxebxuicy=hy:Far q=1 TO nec 
S7 GOSUB 11200: cy=cytZicn=cxt+l NEXT 


60 GOSUEB 1600 


4 


65 FOR q=1 TO nptiF plcq)=@ THEN &® 66 


66 cy=cy€q) 2 cx=cxn gy) 
7@ cy=cytHZicn=cxt+l 
75 GOSUB 165490 

76 GOSUBR 18@0@ 

77 CXCYDFCKK 

S@ NEXT gq 


Gi cxebetiicy=bhy+2:GOSuB i1l1@@ 
5 


S5 GOSUB 1L1Zoo 
7@ GOUSUB 14d50@ 


g 
91 REM 333>>>>> SCORE LOGIC 
92 


Fat ge ee aoa er 


alot 
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9S IF npeS THEN Ya ELSE IF sc(1)>21 THEN 
pEC1II=H"L"IGOTa 1354 

Sd IF sc€1)221 AND scC2>221 THEN ptci>=" 
L'spSC2Z="L"sGOTO 15 

95 FOR w=1 TO ne 

190 chEbxicy=Chy-Z)+wke 

105 plc C3 ,wo=hecw) 

119 GOSUB 130@@:GOSUB 11000 

111 bx=bx+t 

115 NEXT w 

116 beeEcxnthy=cy 

120 FOR w=1i TO ne 

125 plc cS3,wo=bceCw) NEXT w 

120 gq=Sinoc(SIencicxnC SI =hxiGISuB 1La9@0eo 
135 IF sc¢3o<16 THEN GOSUB 11140 ELSE Gd 
To 15@ 

136 beebxtliby=bytZiplccayncoebccncd i qe 
tcx=bhxicy=hyiw=nctGOSUuR 130@@:GNSUB 110 
® 

137 noc€2).=nc:GOSuR 1200@ 

1d@ IF ne=S THEN 150 ELSE GOTO 135 

1d f=CRNDC192*¥29+1721F sccad2f THEN GOSLI 
B 111@@:GOTO 136 

150 y=1 

151 IF plcq>=0@ THEN 2o@ 

152 IF sc€q)e21 THEN pécqd="L"'GuTo 20a 
1S2 IF scC3>221 THEN péCqo="W" GOT Zao 
140 IF ne=S AND noc(qo.=S THEN pécqoe"b"t 
GUTC 2a@ 

162 IF noc€qo=S THEN pS qo="W" GOTO 2o@ 
16435 IF ne=S THEN péCqd="L"'GOTO 200 

164 IF scCS)esceCq) THEN pSCqo="L"'GoTa 2 
a® 

165 IF sec So=21 AND nce=2 AND scCq)=21 AN 
D noc¢q)=2 THEN pSCqod="L"'GOTo 2a 

17 IF noc€qd=S AND nces<S THEN ptcqo="W"'s 
GOTO 2400 

1735 IF sc¢€qo=21 AND noc¢q)=2 THEN pScqo= 
"W'"sGOTO 20@ 

18@ IF secqdeseCS) THEN pec qa="W"iGOoTO 2 
aa 

LSS ITF scCqd=scC3) THEN ptCqo="L"'GOTO 2 
aa 

186 IF scecS>eseCq>) THEN pecqo="L" 

20@ IF np=2 AND q=1 THEN q=2:G0TO 151 
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201 IF np=i THEN 225 

205 IF p@Cid="L" AND pSéC29="L" THEN S5@ 

Z1@ IF pécid="W" AND pSC2Zo="W" THEN 300 

215 IF pécid>="W" AND pc2o="L" THEN 600 

220 IF p#Cid="L" AND pRC2ZD="W" THEN 620 

225 IF pé¢cl>="W'" THEN dao 

2230 IF p@ci>="L" THEN 4S@ 

24% END 

39S REM 23> >>>>> PLAYER WIN <ececedces 

400 mc=mc—-he ci) 

4@35 mo(1)=moC1lothed1i)*z 

406 GOSUB 22000 

41@ IF mc“ii THEN 75@ 

411 GOSUB 17900 

d12 LOCATE 1,25: PRINT"Player wins" :GOSUE 
19500 

415 Gata 

dd FEM : 

450 mc=mcthe cl) 

431 GOSUB 1970@@:GOSUB 2S50@ 

4152 LOCATE 1,25: PRINT" Bank wins"!GOSUB 1 

= ban *0102) 

453 IF mo¢ide il THEN pl cid=@ 

4355 GOTO 2@ 

495 REM 3332 >>>>> BOTH WIN ence ddcdd 

200 moCid=moClothe cl #2 

SOS motZ =moCZ +theCZ)*z2 

306 GOUSUB 22000 

210 mc=mc—hbecClo—-becZ) 

915 IF mc<i THEN 75® 

S16 GOSUB 197000 

220 GOT 20 

S45 REM 33>>>>>>> BOTH LOST <<<4nceeded 

350 mc=mcetheClot+thecZ) 

SS1 GOSUBR 196@@:GUSUR Z2AR0@ 

aa IF mo¢id<1 THEN pl ¢1>=@ 

sad IF mo¢2Z)<1 THEN pl¢2)=0 

23 IF pl¢l)=@ AND pl¢2>=1 THEN LUCATE 1 
,225PRINT "Player 2 loses" 

360 IF plCl>=1 AND pl¢2>=@ THEN LOCATE 1 
,2-tPRINT "Player 1 loses" 

365 IF pl¢l)=1 AND pl¢z)=1 THEN LUCATE 1 
see sPRINT "Both players lose" 

266 GOSUB 1950 

=70@ GOTQ 2@ ‘ 


BANE WIN <e<eeceedge 
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S95 REM 3235232 >> PLAYER 1 WIN feeedeced 
600 mc=mcthe CZ) 

6035 mo €idy=mo Clothe C1 )*2 

610 mc=mc—-hbec1) 

611 GOSUR 23aao 

é1ld IF mo€2)<1 THEN pl¢cs>=a 

615 IF mci THEN 7S@ 

616 GOSUEB 17400 

617 LOCATE 1,25:2:PRINT"Player 1 wins":GOS 
WB 19500 

6290 GOTO 2a 

6d5 REM 3oooo>> PLAYER 2 WIN ceded 
650 mc=mcthe 1) 

655 mo€Z =moCZ the CZ *2 

660 mc=mc—-helc2) 

6641 GOSUBR 2200@ 

6644 IF mo¢lo<1 THEN pl ¢1)=a 

665 IF me<i THEN 75a 

£66 GOSUB 17900 

667 LOCATE 1,25:PRINT"Player 2 wins":GO0S 
UWB L9S50aa 

6740 GUTTA 2® 

745 FEM 3oo>>o >> BANE BROKE <<ceceeccedd 
730 GOSUE 1700 
7aa LOCATE 1,25 

760 PRINT"Well done,you broke the bank" 
761 GOSUB 230@@:GOISUR 22a0® 

765 GOSUEB 1950@ 

77% CLS 

775 PRINT"PLAYER 1:"3mo%¢1) 

730 IF np=2 THEN PRINT" PLAYER 2: "35mo¢2) 
725 GOSUB 19500:GOSUR 19500 

7370 GOTO 10 

11490 FEM 33>>> NUMBER OF PLAYERS <<aee 
11500 MODE 1L:WINDOW #3,2d,dO,25,25°5INK 1 
,Z267INE 2,6:2:RCORDER @2INE @,@:INE S,1id 
115@1 LOCATE 15,1: PRINT" PONTOON" 

11505 PRINTSINPUT "1 or | players "snp 
11510 IF np<>1 AND npe ee THEN 11500 
114515 FOR g=1 TO npipl¢cqo=1tNEXT 
11520 RETURN 

11990 FEM ¢3>>>> DEAL CARDS <etede 
12000 FOF gq=1 TO np 

12005 c1i=CRENDC1)*51)+1 

12015 IF av€cl1)=@ THEN 12005 
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12020 av¢cid=o 

12025 plc €q,12=cl 

129030 NEXT q 

12035 c1l=CRNDC1>*51)+1 

12045 IF av¢cid=@ THEN 120235 

12054 av¢cl)=0 

120585 bkeclio=cl 

124060 noc¢1ld=Linoc¢2)=Linc=1 

12065 RETURN 

12990 FEM 335332 DECODE CARD «<<¢cad 
134090 sui= CR a ee a MOD 1 

SSIF car=@ THEN car= 

13005 IF suist@® THEN auitad 

13010 IF suiti THEN suit=2 

12015 IF suite THEN suit=3 

12920 IF suits THEN suit=d 

13025 RETURN 

13d90 REM 33>>>> DRAW SCREEN <<ecee¢ 
2500 LOCATE 1,3°PRINT "BANE", "PLAYER 1" 
s'IF np=2 THEN PRINT"PLAYER 2" 

12505 LOCATE 14,21:°PRINT"Beti":1F npe=e T 

HEN LOCATE 27,21 °PRINT"Bet:" 


13519 LOCATE 1,22°PRINT"£"IELOCATE ld,oe: 

PRINT"£E" LOCATE 27,22°PRINT"£" 

13515 LOCATE 1,21°PRINT"RESERVES" LOCATE 
1,20: PRINT"Totali"SLOCATE 1d4,20:°PRINT"T 

otali"iIF mp=2 THEN LOCATE 27,20:PRINT"T 


otal:" 
12520 RETURN 
13990 REM 233222 >> DRAW HAND <<ececed4 


14900 cx=cx(C yd icy=cy(q) 

1d4@@5 FOR w=1 TO noc) 

1d@15 GOSUBR 12000 

ld@Z2o GOSUB 11000 

1425 cy=cy+tZicx=cxn+lLiNExT w 

1d@3@ LOCATE ceCq)-S,22:PRINT mocq) 
1d@35 RETURN 


1dd9® REM 3oo32R> STICK <eeeeded 
1450@ FOR q=1 TO nptIF pl¢q)=@ THEN 145 
& 


IdbO@l cx qd=cexCqot+l 
145@5 LOCATE 1,25:F0R n=1 TO S9:PRINT " 
“Ss SNEXT vr 


1d5@7 LOCATE 1,25:°PRINT"PLAYER "sa3","38 
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PRINT CHR ¢24)5"S"SCHRSC2d)5 "TICK "3 CHES 
C24) 5"T" SCHRS (24d) 5 "WIST"; 

14503 PRINT " "3CHR#C24) 5 "HN" SCHRS C24) 5 "LU 
IT "3;CHR#$ (2d) 5"B" sCHRS (2d) 5 "UY" 

145190 at$=INKEYSi a$=UPPERS(CaS)tIF ag="S" 

OF ag="T" OF at="R" OR ag="G" THEN 1d511 
ELSE GOTO 14510 

WdSii cxecxCqdicy=cy(qo+CZ¥noccg)) 

143512 IF at="B" THEN GOTO 2@aaO 

14513 IF atg="Gi" THEN END 

14515 IF ag="S" AND sc€q)215 THEN GOSUB 
15@@@icx=cxt1:GOTA 14526 

14520 IF atg="T" THEN GOSUB 15500! cx=cx+l 
PexCqdecx (qt 

14523 GOSUER 1aa00 

ldS2d IF sce¢qo eel THEN LOCATE cctq),20:P 

RINT"BUST" GOTO 14526 

14S25 IF nocdqoee5 THEN 14510 

143526 NEXT xy 

1dS520 RETURN 

14990 REM 

15000 GOSUB 1S@O@M@2LOCATE ccCq),202PRINT" 

"SLOCATE cc€q),2@:PRINT scCq>) RETURN 

15490 REM 3333333 TWIST ceccdecdads 
15598 C=(RND(LIESL)+F+1°IF AV(C)=8 THEN 15599 
15595 AV(C)=9: NOC (@)=NOC (@) +1 

15510 pleCq noc ¢q).=ctw=noc(q):GOSUR 130 

@@2GOSUB L1I@O@I RETURN 

15990 FEM 33>>>> PLACE BETS <e<ceeded 

16900 LOCATE 2,22:PRINT mctFOR q=1 TO np 


164@@1 IF pl¢q>=@ THEN 16020 

16@@5 LOCATE 1,25:FOR n=1 TO S9:PRINT" " 
s*NEXT wn 

16é@1@ LOCATE 1,25:PRINT"PLAYER "3sq5 "Your 
het Cf) "5 

16@11 INPUT #3,becq)tIF becqoeti THEN 16005 
164012 IF khe¢q>)>mo¢q) THEN 146405 

164415 LOCATE cc€q),21°PRINT hecq) 

164016 LOCATE cc€q),22:PRINT" = 

16017 moCq)=moCq>—-he cq) 

16@1a& LOCATE cc€q)-d,22:PRINT" "SLOCAT 
E ce q)-S,22:PRINT mocq) 

14020 NEXT gq 
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164040 RETURN 

164490 FEM 32332 DEAL ANOTHER CARD ee 
16500 c=CRND(1)*51)+1 

16505 IF av¢eco=@ THEN 1650 

16519 plceCq, noc qd +1 >=ctav¢ c= 

163515 noccdqd=noccqo+l 

16520 w=noc(q)?:GOSUBR 12@@O@:GOSUB 1100 
16525 RETURN 

17@35 RETURN 

17200 GOSUB 1800@ 

175035 IF sc€q)=21 THEN END 

17510 RETURN 

17990 REM 3322>> PLAYER ’S SCORE i ceae 
15000 scCqd=O@racH=Q@:FOR z=1 TO noc(q)>twez 


1405 GOISUB 130@@:IF FIGHT#$(pacé(suit,ca 

r),2)=" K" OR FRIGHTH$( pac (suit,car),2)=" 

GH" CR RIGHT$( pact suit,car),2)=" J" THE 

N scCqd=scCqo+19 

18@1@ IF RIGHT#(pac#(suit,card,29=" A" TH 

EN ac=act1:GOTO 18020 

13015 scCqd=scCqo.t+VALCRIGHTS (pac suitye 

ar) ,2)) 

13020 NEXT ztIF act® THEN GOSUB Lasoo 
S@21 LOCATE cc€q),20:PRINT" "SLOCATE 

cceCq),2@:PRINT sccq> 

13025 RETURN 

G1l9@ REM 3>3>>2> ACE IN HAND eecceddde 

13200 FOR r=1 TO ac 

1E202 IF scCyotlirei THEN scCqd=sceCq dtl 

ELSE sc€qd=scCqotl1l 

S20d NEXT rr 

18205 GoaTO 18021 

ae oe LOCATE 1,25:FOR a=1 TO 29:PRINT" " 
*NEXT atRE TURN 

i95a@ FOR t=1 TO 3S@@@:NEXT se oacun ee 

19790 REM }eo>> >> 

2000 IF mocqdthecq) THEN ildazs 

20004 hbeCqrHhbeCy #2 

29OOR molqd=moCq -hecqy/2 

20010 GOSUB 15500 

2@@11 LOCATE cc(q),21:PRINT" 

20012 LOCATE cc€q),21:PRINT bec) 

20@15 LOCATE ccCqo-S, 22: PRINT" 

20@1d LOCATE cce€q)-S,22:PRINT mocq) 
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ZOO2ZO cxreEcxtlicxCqy=cxcqrtl 

20025 GUTO 14512 

21990 FEM =>>>> END CF GAME #<4eccdedee 
2200@ GOSUB 1L9@@@:LOCATE 1,252PRINT"AL1 
Player’s money gone" 

22001 FOR so=10@ TO 30 STEP 3 

22002 SOUND 1,50,2°NEXT so 

22005 GOSUB 1950@:GOTO 10 

ZEIIO REM 3eeo2> WIN SOUND ffecnecads 
22000 FOR so=30® TO 19@ STEP —-14 
25005 SOUND 1,50,1 

22010 NEXT so 

25015 RETURN 

23090 REM 333532 LOSE SOUND <<<<csdee 
25500 SOUND 1,200,20 

S305 SOUND 1,0,19 

235510 SOUND 2,500,4d0 

SSS RETURN 


Now ’MERGE’ the °CARD CORE’? routine. « - 


Nothing for a Pair 


Here is the computer version of the card game featured in a well 
known TV programme. 

Each player starts with £150 and eleven cards are dealt out face 
down. 

The first is turned over and a bet is requested. The bet can be 
anything up to the player’s total holding. When the bet has been 
placed, ‘higher’ or ‘lower’ will be requested. If this is correct then the 
bet is paid evens. If the guess is wrong or the card is the same value 
then the stake for that card is lost. This then continues until all the 
cards have been turned and a new game can then be played. 

The ‘High Score’ subroutine should be merged with this program to 
provide another competitive dimension or simply to record how well 
you perform from one game to the next. 

Since this game shares many lines with the Pontoon listing, these 
have not been re-listed. To complete entry of the game the ‘Card 
Core’ should be loaded first and then the additional lines for Hi-Lo 
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can be entered. The ‘Card Core’ is also required for the next game, so 
do not rub over it 


1 REM ¢e4 HI-Lo ANDY 7 JIM 

= REM 

3S DIM pacs2) ,aveSe)  pact(S,13),bc¢11) 
4 DIM cx¢lld,cy¢1i) 

I hi=Oigam$="Hi-Lo"taddr=2d999 

& BORDER ® 

& SYMBOL AFTER 223 

97 GOSUB 17000 

1@ MODE LINK 1,26:2INK 2,62INE S,1d: INK 
a,a 

11 WINDOW #3,32,d0,25,25 

12 PEN 1 


15 LOCATE id,17:PRINT"HI ~- Lo" 

20 GOSUB 1400 

22 .GOSUR 105@®@ 

25 GOSUR 11500 

2@ LOCATE 11,19:PRINT"Stake:" 

S33 LOCATE 11,2@:PRINT"Total:" 

37 LOCATE 27,17:2PRINT"Hi-score" 
40 tot=150 

d& hbe=@ 

20 GUSUB 1350 

60 GOSUR Lda 

65 c=l 

7 cxFcx(Ccdicy=cy(c) 

71 GOSUB 13500 

72 IF c=#11 THEN 2500@ 

75 ple¢l,lo=he Cedi q=1 twel 

7é GOSUBR 120@O:GOSUB 11494 

80 GOSUB 14000 

SS GOSUBR 15000 

GOSUR 13500 
cxEcx(ctldicy=cyCct+i)d 

plec1l,ld=beCetl)> ?ca=car 
q=Liw=1:GOSUBR 12a@a@ 

191 GOSUR 11000 

1@S IF car?ca AND at="H" THEN 1650@:GOTC 


om 
ip 


| 


nan 

cS 

S 
Ss 


7@ 
110 IF car®ca AND a#="L" THEN 1650@:GO0TC 
79 


115 GoTU 146400 
120 GUTO 70 
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11490 REM 33>>>>> DRAW CARDS <ceeacdee 
11560 RESTORE 11525:FO0R a=1 TO 11 
115605 READ cx(Cad,cya? 

11506 cx=EcxCadicy=cyla)d 

11519 GOSUE 11200 

11515 NEXT a 

11520 RETURN 


11525 DATA 2,1,19,1,16,1,26,1,34,1 
11530 DATA 2,9,19,9,15,9,26,9,34,9 


115425 DATA 2,17 
12990 FEM 3o>>>> DECODE CARD ¢<ecdccas 
134000 sui=plceCqwo/lsicar=plcecq,w) MOD 1 
StIF car=@ THEN car=13 
13005 IF suit@ THEN suit=1 
1201 IF suiti THEN suit=2 
13015 IF suite THEN suit=2 
13020 IF suit3 THEN suit=d 
12025 RETURN 
13490 REM 32> PRINT HI,TOTAL, get aad 
1320@ LOCATE 17, 19: PRINT s 
135@1 LOCATE 17,19:PRINT he 
250d LOCATE 17, 20!PRINT 
13505 LOCATE 17,2@:PRINT tot 
13509 LOCATE 28,18: PRINT " 
1SS1i@ LOCATE 2E8,18°2PRINT hi 
133515 RETURN 
12990 REM *>>>>2>2> PLACE BETS ¢<cceeddde 
1d@0@ LOCATE 1S, 2di PRINT"You have £"5tot 
1ld@@i LOCATE 15 ,25:PRINT"What is your he 
t u 
1d@@S INPUT #3,he 
14910 IF he<1 OR bettot THEN 14005 
14d@15 tot=tot-be:GOSUER 1350@ 
1d4d@20 RETURN 
ldd9® REM 32>> GENERATE CARDS <<<eeee 
1450® FOR a=1 TO 11 
145@5 c=H=INTCRNDC19*#5194+1 
14510 IF av¢c)=@ THEN 14505 
ldBisS beCad=pacc) 
14520 avi c)=0 
ldS25 NEXT a 
145350 RETURN 
14990 REM 323222 HIGHER / LOWER <<ceed 
15000 LOCATE 15,25:FO0R b=1 TO 25: PRINT" 
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"StNEXT & 
SO@L LOCATE 15,20d:FOR a=1 TO 2@2PRINT" 
“SiNEXT A 
15@@S LOCATE 15,25:PRINT CHRE$¢ 24) 5"H"5CH 
RS¢2d);"igher / "“jCHRS¢24) 5"L"sCHRES (24 9 5 
“ower” 
15010 a$=INKEY$? aS=UIPPERS (as ) 
15015 IF a$ee"H" AND asee"L" THEN 15010 
15020 RETURN 
S990 REM ooo LOSE “cca dccd ade 
164000 SOUND 1,2400,20:SOUND 1,4,10 
164010 SOUND 1,500,d@ 
164020 IF tot<1 THEN 246000 
1644025 c=c+1:GOTa 7@ 
164490 FEM 333522 >>> WIN Cede cddeddds 
1645200 FOR so=5@® TO 2@@ STEP -10 
1642505 SOLIND 1,50,2:5NEXT so 
16510 tot=totthers 
16520 c=c+1:GOTO 7@ 
17@S5 SYMBOL 226,556,556, 25d, 25d ,25d,16, 56 
AY) 
17090 SYMBUL 227,16,56,12d,25d,12d,56,16 
a) 
17095 SYMBOL 226,108,25d,25d,25d,12d,56, 
14,0 
171@@ SYMBOL 229,16,56,12d,250,25d,16,56 
12 
17105 MEMORY 24999: GOSUBR 29500 
17110 RETURN 
19500 FOR t=1 TO S@@@INEXT ti RETURN 
20990 REM >3>%>> HIGH SCORES “<<ciddd 
reoivibabe IF tot#hi THEN hi=tot 

S005 sc=tot:GNSUuBR £0000 
25010 GOTC 1@ 
25990 REM 3235322 > NO MONEY LEFT seg 
26000 LOCATE 15,25:FOR a=1 TO 25:PRINT" 
"stNEXT a 
2600S LOCATE 15,25°PRINT "Run out of mon 
ey !" 
26@10 GOSUH 1975@@2;GOTO 10 


Now *MERGE’ the *INKEYS’ , the 


*HIGH SCORE’ and the "CARD CURE’. «. . 


5 
Concentration 


Find the Pair 


This deceptively simple game requires a good memory and of course 
great concentration. 

Each player has one turn to select two cards. If they match then 
they score and are removed from the screen. The next player then 
tries to find a pair until all the cards are gone. The winner is the one 
who correctly matched the most pairs. 

In some card versions of this game a successful player is allowed to 
turn over another two cards. However, the game plays better in this 
12-card version if one player cannot clear the decks so quickly. 

Since the game requires a pack of ‘micro cards’ together with the 
shuffle routines, these can be merged from the earlier listing. Once 
again you will have a very comprehensive program which makes full 
use of the memory, without having to type in more than is necessary. 

Here is a money raising tip. Those readers who are involved in 
raising cash for charities or school funds may like to consider how the 
micro can help. Concentration could be used as a fund raiser, just as 
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many other programs featured in the book can. Simply set up your 
computer and charge visitors for the privilege of pressing the buttons! 


1 FEM << CONCENTRATION ANDY/JIM 32% 
= FEM 

14 CLEAR 

20 DIM pac#CS,13),ccCS),scc2) 

3@ DIM paCS2> ,avcaZ) 

d@ DIM cx¢1l2Z),cy¢12) 

2@ DIM caClZ)d,bcCcle) 

6é@ DIM ple¢1,2),acc1ie) 

7@ SYMBOL AFTER 223 

20 GOSUB 17@0® 

7@ CLS:IGOSUBR 19000 

10@ INK @,@:RORDER © 

119 sc(1)=O@i:5cC2)=0 

120 GOSUB 10000 

130 GOSUE 10500 

135 PAPER @:PEN 3 

1d® GOSUB 11500 

156 GOSUB 12000 

160 FOR a=1 TO Ll2@tacCad=1:INEXT a 

17@ WINDOW #3,1¢8,d@, 25,25 

180 pH=1 

170 GOSUEB 1dta@o 

200 GOUSUB 13500 

219 GOTO 1d@oo 

220 IF p=l THEN pee ELSE pHl 

250 GOTA 190 

11295 REM ¢oo>ooo> ERASE CARD <adeecedd 
113@@ LOCATE cx-l,cy 

11305 FOR y=1 TO 7 

11310 LOCATE cx-1l,cyty-1:PRINT " " 
11315 NEXT y 

11320 RETURN 
11id3@ FEM @2>>>> GENERATE CARDS <<iceee 
115400 RESTORE 1157@:FOR a=1 TO 12 
11501 cacad=1INEXT a 

11504 FOR a=1 TO 12 STEP & 

115@5 READ cl,c2 

11519 c=CRND(1)*11)+1 

11515 IF cac¢c)=@ THEN 1151 

11520 beCcod=H=clicacc)=0 

11525 c=CRENDC1i)*119+1 

11530 IF ca¢c)=@ THEN 11525 
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11iSS5 beCcp=cBicacc =a 

1154@ NEXT a 

11545 FOR a=1 TO 12 

11550 FREAD cxCad, cya) 

1iS55 NEXT a 

11540 FETURN 

11570 DATA 1,14,2,15,3,16,4,17,5,15,6,19 
11550 DATA 2,1,19,1,15,1,26,1 
11565 DATA 2,9,190,9,18,9,26,7 

11570 DATA 2,17, 10,17, 13,17,26,17 
11990 REM +o>32>>> DRAW SCREEN “aeceene 
12000 MODE LFINE 1,26:°INE 2,6:INE - 
124004 FOR a=1i TO 12 

12005 cx=cxCadicy=cyla) 
12016 GOSUB 11200 

12011 LOCATE cxCadtl,ycyCadt+72 PRINT a 
12@15 NEXT a 
12@29 LOCATE eee i" 

12025 LOCATE 33,6:PRINT "Score 3" 
12030 LOCATE 32) 152PRINT "Player 1" 
12035 LOCATE 32,17:PRINT "Player =" 
12040 RETURN 
12990 REM 323>3>>>> DECODE CARD “asecads 
12000 su=pleCq,wo/1Sicar=pleCq,w> MOD 13 
‘IF car=@ THEN car=13 
130035 IF sus@ THEN suit=1 
1201 IF suti THEN suit=2 
13015 IF suse THEN suit=3 
12020 IF susS THEN suit=d 
124235 RETURN 
13490 FEM 33222232 INPUT NUMBER <<acees 
1350 LOCATE 1,25:FO0R a=1 TO 3@:PRINT " 
"StNEXT a 
13504 LOCATE 1,25°PRINT"Enter first No-" 


3 

12505 INPUT #3,n1 

13510 IF ni¢i OF mioi2 THEN 13505 

Peete ae AEE pooee 

13515 ple¢cl,loshctnidtq=1iw=l 

S520 GOSUE 13000! cx=cx(ni)tcy=cy(nl) 
ISS25 GOSUR 11000 

13530 LOCATE 1,25:PRINT"Enter second No- 


Wg 
b } 


ISS35 INPUT #3 ,n2 
135d0 IF ne<i OF narie THEN 13535 
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125d1 IF ac(n2)=@ THEN 133535 

12545 pl etl, 2 sheCnZ) sq=12WS=2 

1325350 GOSUBR 1i@@@icn=cxCnZ) i cy=cy(nZ) 
13555 GOSUB 119000 

135460 RETLUPFN 

13990 FEM 322333 > CHECK PAIR 4<eeece4 
149000 q=Liw=1:GOSUB 13000 

1d@@OS cal=cariq=itw=Z2:GUSUH 1300 

14@160 caZ=car 

1d4@i5 IF cal=caz THEN 1500®@ 

14620 LOCATE 1,25:FOR a=1 TO 3@:PRINT" " 
s*NEXT a 

1ldO2Zs LOCATE 1,25!°PRINT "Cards do not ma 
tch" 

1d@30 GOSUB 19500 

1d@35 cxHecx(nldtcy=cy (n> 

ld@d®@ GOSUB 11200! cu=cx(nZ) i cy=cy(nZ) 
1d@d5 GOSUB 11240@0:G0TO 22a 

1ldd90 REM 33355 PRINT SCORES “<add 
14350 PEN LILOCATE 33,a:PRINT sc¢1) 
ldS05 LOCATE 32,7:PRINT sce) 

14510 IF pl THEN LOCATE S32,15:PAPER 1:P 
EN @:PRINT "Player 1"!PEN 1:°PAPER @:LUCA 
TE 32,17: PRINT "Player 2" 

S15 IF p=2 THEN LOCATE 32,17:PAPER 1:P 
EN @:PRINT "Player 2":PEN 1!PAPER @:LICA 
TE S2,15:PRINT "Player 1" 

143520 RETLRN 

14990 REM 3ooe>>5>> PAIR FOUND <<eceede 
1500@ LOCATE 1,25:F0R a=1 TO 2@:PRINT " 
"ssNEXT a 

15@O@S LOCATE 1,25°PRINT "Pair found" 
15006 ac(n1l)=Orac(nZ)=O 

15007 FUR so=S@O TO 10@@ STEP —-1@:SCQUND 1 
»SO,L=2NEXT so 

13514 GOSUER 1950 

1S@15 cxEcx(nlditcy=cy(nt) 

13020 GOSUB 113500! cxrEcKn (ne) tcy=cy(nZ 
15025 GOSUB 112@0:isc(Cpod=sceCpIt+S 

15@20 IF sceclotsc€2)=3@ THEN 15500 

15035 GOTO 220 

15490 FEM 33252332 END OF GAME <aeeeaced 
1550@ CLS:PEN 1 

15505 PRINT:PRINT "Player 1 score: "3sccl 
») 
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15510 PRINT:PRINT "Player 2 scorei"jscce 
> 

16515 PRINT: PRINT: LOCATE S,1@:PRINT "Pre 
ss ’SPACE’ for another game," 

15520 LOCATE 10,12:PRINT "or *H? to quit 


{S525 a$=INKEYS 

155360 IF at=" " THEN 10 

15535 IF ag="Q" CR ag="q" THEN END 
135d@ GOTO LS525 

17@S5 RETURN 

19500 FOR t=1 TO S@OMINEXT ti RETURN 


Now *MERGE’ the °CAFRD CORE’? routine. « - 


16 
Micro Mind 


Colour Your Reasoning 


Versions of this well known and widely enjoyed game can be found 
on all microcomputers. In writing this implementation of the game, 
care has been taken to produce a good looking layout that makes 
play enjoyable. 

The object of the game is to work out what the secret 6-colour 
combination is, by placing coloured markers in a row. 

The Amstrad will then indicate how accurate the placing was using 
little faces: 


A happy face indicates the right colour, right place. 
A sad face indicates the wrong colour, wrong place. 
A straight face indicates the right colour, wrong place. 


A joystick or the cursor pad is used to select the colours by moving 
an arrow to the colour required. The fire button or copy key then 
places it. The next ones are then entered in the same manner until the 
row is full and the result is shown. 

There are ten chances to guess the correct sequence before each 
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game ends. The computer will then display the correct combination 
at the top of the screen. This will remain in view to allow analysis of 
where you want wrong! Pressing Y or N either starts a new game or 
ends the session. 

The game can be played competitively by each person aiming to 
achieve a lower number of lines to work out the combinations. 


19 REM <<< MICROMIND ANDY/JIM 
15 REM 

2@ INPUT "COLOUR CY/N) ?" as 

22 at=UPPERS (as) 

25 IF at="Y" THEN gr=@ ELSE gr=1 

20 REM 

Si MEMORY 2d99Otaddr=3d999 

32 GUSUB 297500 

S35 GOSUH 11500 


36 CxESicy=25 
37 PEN 1 


40 FOR a=1 To a4 

45 LOCATE (€a¥39-2,2:PRINT CHES C143) 5 CHES 
€143) 

dé NEXT a 

10 neHliFOR y=d TO 22 STEP 2SLOCATE i,ytF 
OR x=1 TO 9 STEP 3:PRINT CHR$( 1423) 5 CHES ¢ 
Z2S2)35" "S¢NEXT xt PRINT CHR (143) 5CHRS¢ 23 
Z2)5%rnHn+LENExT y 

aa try=1 

40 GOSUB 1940@ 

65 GOSUBR 1@5@@ 

7@ GOSUBR L250 

7= IF at="YYYY" THEN 14000 

73 af="" 

75 try=trytlilF try=11 THEN 12@0@ ELSE G 
NTO 65 

379da9 END 

9990 REM 33> PICK RANDOM SEGWUENCE <<< 
19000 FOR pla=1i TO d 

109@@S n=INTCRNDC1)>*d9+2 

190010 nnCplad=n 

1@@15 NEXT pla 

19020 RETURN 

14490 REM 32>>> INPUT COLOURS <<<2<ee 
193500 IF gr=1 THEN GOTO 16502 ELSE LUOCAT 
E 3,24 

103501 PEN #:PRINT CHR#(¢1439)3:2PEN 3:PRINT 
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CHRS(1d3952PEN Gd: PRINT CHR$(14d3)5:PEN 5 
*PEINT CHRS¢1d2)5:PEN 6:PRINT CHR#¢1d3);5 
*PEN 7: PRINT CHR#(¢1439:GOTO 10505 

1@3@2 LOCATE 3,24:PEN 2SPRINT CHR (3d)55 
PEN S:PRINT CHR$(35)5:PEN 4:PRINT CHRE#¢(3 
&)5°PEN SPRINT CHR$(37)3;:2PEN 6&:PRINT CH 
R$C33)52PEN 7:PRINT CHR$( 39) 

10505 tx=1 

103507 cy=25 


1@51@ LOCATE cx,cy!tPRINT "“"sFOR t=o@ TC 
1QM=NEXT t 

1OMSis5 LOCATE cx,cysPRINT " " 

10520 GOSUB 23700 

1@S25 IF le=1 AND cx?3 THEN cx=cx-l 
10530 IF ri=i AND cxeis THEN cx=cxt+l 
1@S35 IF fi=1 THEN 1060@ 

10340 GOTO 10510 

19600 pe=cx-1 

106405 LOCATE tx,try*#2+2:PEN petIF gr=1 T 
HEN PRINT CHR#(S2+pe) ELSE PRINT CHES (C23 
3) 

19610 =HtxtSipectx/3o=pe 

19615 IF tx=135 THEN RETURN ELSE GOTO 105 
19 

11490 FEM 33>>>>>> DRFAW HEAD «eeeeeeede 
11495 SYMBOL AFTER 223 

11560 MODE @:INK 1,24:INK 2,11:INkE 3,18: 
INE d,2d:5INK S,26:INK 6&,6&2INE 7,7 

1iS@1 PEN 1 

11502 PEN 6G?=LOCATE 2,1:°:PRINT"MICRCMIND": 
PEN 1 

11505 MOVE SSO, 502DRAW 260,110 

11510 DRAW 605,180: DRAW 615,220:DFRAW 615 
,25Q 

11520 DRAW 605,290°:DRAW SSS, ,320:DRAW dia 
5 et) 

11525 DRAW d1iS,290: DRAW 295,250: DRAW S65 
7200 

11530 DRAW S75,1975:DFAW 29O0,197@:DRAW doo 
51790 

11535 DRAW SIS,165°DRAW d@O,160:DRAW S95 
,LSSI DRAW doa, 150 

115d@ DRAW d@@, 1d 52:DRAW S95,1d4d0:DRAW S95 
,13@ 

11505 DRAW d@@, 125°:DRAW di S,120:DFAW 425 
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7110 

11550 DRAW A350, 95:DFAW dO@s,SO:MOVE did,2 
SO@:DRAW 430,245: DRAW 419,240 

11555 PEN 28:LOCATE 15,1@:PRINT CHE$¢(1id3) 
>PEN S:LOCATE 14,75 PRINT CHES (1439 5=PEN 
diPRINT CHE$(1d3):PEN SIlLocaATE 1¢4,1@:PRI 
NT CHR#(1d5):PEN 6 ©LOCATE 15,11:PRINT CH 
E$C1id3) 

11560 PEN 7!LOCATE 17,12: PRINT CHE $¢ 143) 
*=PEN S:2LOCATE 16,13:PRINT CHE$¢(1d3):2PEN 
TSSLaCcATE 1464,15°PRINT CHE$¢1d3) 

11565 SYMBOL 250,124,255 153,255 255,129 
yeaa, LE 

113576 RETURN 

119970 FEM }3> PUT PLAYERS COLOUR UP <<< 
12490 REM 32> CHECK THROUGH SEGUENCE << 
12500 aG=""BtxHEZsPEN 1 

aes FOR x=1 TO d 

1251 IF pecxd=nn¢x> THEN LOCATE tx,try* 
eel CHR$ (22d); 2: abt=agt+"V" ELSE LOCA 
TE tx, try*#Z+2:PRINT CHES (225) 5 i ag=agt+"X" 
12511 teetxt+3 

12515 NEXT x 


12520 tx=2 
12521 do=® 


125 ntact 
12526 
00,10 
12530 

THEN 
SOUND 


12535 


For x=1 To 
IF MID#Cas,x,19="V¥" THEN SCLIND 1,1 


GOTO 12550 


IF pexd=nn¢1) AND LEFT#(a$,19="X" 
LOCATE tx,try*Z+2:PRINT CHRS(250): 
1,300,1@:do=1 

IF pecxd=nnCZ) AND MID$(a$,Z,1)="X 


" THEN LOCATE tx,try*2+2iPRINT CHR (C250 ) 
?SOUND 1,300,102 do=1 


12540 


IF pecxd=enn¢S) AND MID$Cas,5,1)="X 


" THEN LOCATE tx,try*2+2:PRINT CHR$ (250) 
ISOILIND 1,3@@,1@:do=1 


12545 


IF pecxd=rnn¢4> AND FIGHT$(Cat,1)="X 


“THEN LOCATE tx,try*2+Z:PRINT CHRS(250) 
ISOUND 1,300,10:do=1 


123546 
125350 
12355 
1297990 
12000 


IF do=@ THEN SOUND 1,450,104 
tx=txtS32SOUND 1,9,5=°NEXT x 
RETURN 

REM 333>> LOSING SEQUENCE sac 
FOR a=1 TO 4d 
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13@@5 PEN nncad 

12010 LOCATE Ca¥S2-2,2:PRINT CHES¢ 143) 5C 
HRS ¢ 145) 

13@15 NEXT a 

13025 LOCATE L3,1:°PRINT "Sorry" 

12026 FOR so=10@ TO S@@ STEP 1@:SOUND 1, 
SO, 3°NEXT so 

13030 GOTO 14021 

13990 FEM 33222 WINNING SEQUENCE ¢<¢<< 
1d@o@ FOR a=1 TO 4d 

1d@@S PEN rmn¢ad 

14@1@ LOCATE (Ca®tS9-2,2°PRINT CHR (143) 5¢ 
HR#¢ 143) 

ld@1iS NEXT a 

1ld@2O LOCATE 1id4,1:PRINT "Did it" =tLOCATE 
ld, S3°PRINT"in "stry 

Ld@2i LOCATE 14,23°PRINT"Again"!tLOCATE 1 
S,2dPRINT"¢CY 7 No" 

ld@2Zz FOR a=1 TO 2 

1d@ZS FOR so=S0O TM 19@ STEP —-S@:SOUND 1 
sSO,c°NEXT so 

1d@2d FOR so=1@@ TO S@@ STEP S@:SQUND 1, 
sO,a*NEXT sotNEXT a 

14025 at=INKEYS 

14030 IF a$="Y" OF at="y" THEN 35 

1d@2S5 IF at="N" OR ag="n" THEN CLS?END 
ld@do GOTO Lld@es 


Now ’MERGE? the ’INEEYS®? routine. - - 


17 
O’Grady Says 


O'Grady Says: Type This In 


As far as I know this is the world’s first implementation of the well 
known game, sometimes also known as Simon Says. 

This program can be most helpful in teaching the concept of left 
and right, but be warned, as it stands the program means its left or 
right, not yours! 

You start each game with just one point. The speech bubble will 
then announce the action required together with the name of the 
person giving the order. If O’Grady says ‘do it’ then you do it fast! If 
O’Riley says ‘do it’ then you do nor! The little chap at the top follows 
all commands. 

There are four possible actions which you may be asked to do. Up 
and Down are actioned using the up or down cursor or joystick as 
normal. Left or Right are obtained using the respective key in 
relation to the on-screen character. This means that pressing the left 
cursor will actually lift up the chap’s right arm. 

This swap has been incorporated to provide more of a mental 
challenge. It can be quite a struggle to work out whichis left, which is 
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right and of course whether O'Grady said ‘do it’. Play the game and 
you will see what I mean. 

Speedy mental processing is important in O’Grady Says or lack of 
action may be taken as intentional. This could mean that you lose 
points or, if you are lucky, doing nothing could be just the right 
response. 


1 REM < O'Grady says #°> ISSI/JIM/ANDY: 
2 REM 

199 MEMORY 34990 

11@ addr=34d999:GOSUBR 27500 

309 GOSUEB 2O@oe@ 

TOS scH=Ortu=@ 

B1@ REM 33o>>>>> MAIN LOOP eeedeedade 
S15 og=INTCRND(1)*2)+1 

S16 tu=tutrl 

S20 po=INTCRND¢(1)*4)+1 

S21 CLS #1 

S22 GCSUB 214@d@:GOSUR 21@6@:GOSUB Z1lid@: 

GOSUE 21166 

S25 IF og=1 THEN PEN #1,4° PRINT #1,"0°GRE 

ADY SAYS," 

S3@ IF og=2 THEN PEN #1,4° PRINT #1,"C°RI 
LEY SAYS," 

S35 IF po=i THEN PEN #1,5°5PRINT #15 PRINT 
#1,"MOVE UP": GOSUB 21900:GNSUB 21420 
Sd@ IF po=2 THEN PEN #1,5:PRINT #1:PRINT 
#1," MOVE DOWN" =GOSUB 2166@:GOSUBR 2 
14d@ 

Sd5 IF po=3 THEN PEN #1,5:PRINT #1:°PRINT 
#1,"UP FRIGHT" :GOSUB 214@O@:GNSUBR 21960 
S580 IF po=d THEN PEN #1,5:PRINT #1:PRINT 

#1,"UP LEFT": GOSUB 21@20:GOSUB £1440 
S55 t= 
360 GOSUB 2900 
S65 IF letritupt+do=0 THEN t=t+1itIF t=d@ 
THEN 610 ELSE GOTO S36 
S7@ IF ri=1l THEN GOSUR 2112@:GOSUB Z11d@ 
S75 IF le=1 THEN GOSUER 211@@:GOSUB 21160 
S@ IF up=1i THEN GOSUB 2119@:GUSUBR 2112o 
S385 IF do=1 THEN GOSUB 2114d0:GOSUB 21160 
S90 IF po=i AND up=1 AND og=1 THEN 200@ 
S95 IF po=2 AND do=1l AND og=1 THEN 20@a 
600 IF po=S AND le=1 AND og=1 THEN 20@@ 
605 IF po=d AND ri=1 AND og=1 THEN 20@@ 
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610 IF t=d@ AND og=2 THEN CLS #1:PEN #1, 

&tPRINT #1," WELL DONE ":PEM #1,4:P 

RINT #1,"C°RILEY":PEN #1,6:PRINT #1, "SAI 

D iT*ssee sct1:GOSUB 2500 

611 IF t=d@ AND og=2 THEN FOR son=80@ Th 
19® STEP -3@:SQOUND 1,s0nm,1@:NEXT son:Gnu 

TQ 635 

615 IF og=Z AND letrit+tdotupe2@ THEN CLS 
#1°5PEN #1,6:2PRINT #1,"WRONG! "PEN #1,4:P 

RINT #1:2PRINT #1, "OQ°RILEY":SPEN #1,6: PRIN 

T #1°PRINT #1,"SAID IT"tsc=sc-1:GOSuUuB 2S 

@a@ 

616 IF og=Z2 AND letritdotupe:@ THEN FOR 
s0=10@ TO 2@@ STEP 1@:SOUND 1,50,5:NEXT 
so:GOTd 625 

617 IF t=d@ AND og=1 THEN CLS #1:PRINT # 
1," OUT OF TIME! "isc=sc-1:GOSUR =Z50@ 

618 IF t=d@ AND og=1 THEN FOR so=1@@ TO 

20@ STEP 1@:SOUND L,so,StNEXT soiGOTO 4&3 

620 CLS #1°PRINT #1:PEN #1,5°PRINT #1, 

RONG!" 

621 FOR so=10@ TO S@@ STEP S@:2SOLIND 1,580 
,i1@INEXT so 

625 sc=sc-1LiIF sci THEN 7@@ 

620 GOSUB 2500 

635 FOR t=1 TO 1@@@:NEXT t 

640 GOTO S15 

690 REM 33332 END CF GAME <aicenaends 

74®@ CLS #2:PEN #2,5:PRINT #2, "BAD LUCE 

Yu MADE IT THROUGH "sturPRINT #2," Tu 

RNS." 

7OS FOR t=1 TO 2@@@:INEXT +t 

71% CLS #1°CLS #2°PEN #2,5:PRINT #2,"POI 

NTS" 

7i&S MODE @:GaTa Saea 

1990 REM 3333>>> CORRECT ¢cceddecddde 

2000 CLS #1°PRINT #1, "CORRECT!" 

2005 FOR so=200 TO 100 STEP —S:2SOUND 1,5 

O,==NEXT so 

2910 sc=sct1i:GOSUuR 25@@:GOTO 635 

2490 REM 3333>>> PRINT SCORE <<<ededds 

25000 PRINT #2,CHR$(3Q0):PRINT #2:°PRINT #2 
*PEN #2,4:2PRINT #2,5c¢ 

2505 RETURN 


199ee 
ZOO1O 
ZOE 
ZOORA 
ZOOdO 
ZOORO 
ZOOEO 
ZO1A® 
ZOLLG 
ZOLZO 
20130 
20140 
20150 
ZO1E@ 
20170 
20120 
ZOL9O 
ZOZ10 
ZOBZO 
ZOZA® 
ZOZAD 
ZOZBSO 
ZOZTO 
ZOZEO 
BOBO 
ZOBOO 


20330 
20340 


Z2O390 
20310 
29529 
ZO530 
20540 
20550 
20560 
29270 
20580 
2OR70 
29600 
20610 
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RESTORE 2@oOoo 

FoF n=@ TO 15 

READ a 

INK nya 

NEXT 1 

DATA @©,26,3,19,24,24,24d,3 
DATA 0,9,9,9,9,9,9,@ 
BORDER @:PAPER @:PEN 1:MCDE @ 
WINDOW #1,2,79,23,19 

WINDOW #2,2,9,14,20 

PAPER #1,2:°PEN #1,35°CLS #1 
PAPER #2,2:PEN #2,5:CLS #2 
PLOT 30,370,5:DRAW 292,370 
DRAW Z292,237:DRAW 30,237 


DRAW 35,230: DRAW 30, 252°DRAW 30,274 


PLOT 2@,195: DRAW 292,195 
DRAW 2972,77:DFAW 20,77 


DRAW 30, ,180°IDRAW 3,202:DRAW 20,17 


PRINT #2:°PRINT #2," POINTS" 
PLOT d&@, S25 ,5°DRAW dao, 250 
DRAW 330,250,9!IDRAW 3d0, 260 
PLOT dS@,325:DRAW 230,240 
DRAW SdO,365:2:PLOT db0, 250,11 
DEAW d2Q,25@°DRAW d2O, 260 
PLOT d80,325IDRAW 430,340 
DRAW 420,365 

PLOT d&O,325,3°DRAW 300,290 
DRAW dS0,25@°DRAW 200,225 
DRAW 490,200 

PLOT di@, S25 ,19:DFAW d6éa, 290 
DEAW 430,250:DRAW d6a, 225 
DRAW 470,200 

PLOT d3@,150,5:°:DRAW 450,75 
DRAW 330,75, 13°DRAW Sdo,ac 
PLOT 430,150: DRAW 320,165 
DRAW 540,19@=2PLOT deo,75,15 
DFAW 430,75:° DRAW 420,55 

PLOT d&@,15@:DRAW 430,165 
DRAW 420,170 

PLOT 480, 150,12:°DRAW 300,115 
DRAW 450,75: DRAW 300,50 

DRAW 490,25 

PLOT d&@,150,1d:DRAW 460,115 
DRAW 450,75: DRAW 460,50 


ia 
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20620 DRAW 470,25 
20630 TAG #5:PLOT 9,9,5 

20640 MOVE d66,3dd:PRINT #3,CHRSC 224) 5 
20650 MOVE d66,160:PRINT #3, CHRS (22d) j 
20660 PLOT 0,0,0 

20670 GOSUE Z1Od@:GOSUR 21060 

20680 GOSUB 211d@:GOSUB 21160 

20750 RETURN 

21000 INK 11,24:INK 10,0 

21010 RETURN 

21020 INK 9,Z4:INK 3,0 

21030 RETURN 

21904 INK 10,2d:INK 11,0 

21050 RETURN 

21060 INK &,Za:INK 9,@ 

21070 RETURN 

21100 INK 15,2d:INK 14,0 

Z2111@ RETURN 

21120 INK 13,2d:INkK 12,0 

Z11i3@ RETURN 

Zi1d®@ INK 14,24:INK 15,0 

21150 RETURN 

21160 INK 12,2dtINK 13,0 

21170 RETURN 


Now ‘’MERGE’ the ’INKEYS® routine. « « 


is 
Parrot 


Who's a Pretty. Program? 


Here are four pretty parrots, each a different colour and each holding 
a ‘string’ in his mouth. 

When the program runs the parrots will commence pulling the 
strings in sequence. The first set will consist of only one pull. Then it 
will be your turn to copy the sequence. 

The perches of the birds have been arranged to correspond to the 
arrangement of the cursor keys. Thus by pressing ‘up’ the top bird will 
pull a string, ‘down’ will activate the bottom bird and so on. As usual 
a joystick may be used instead of the cursor pad. 

The computer produces a sequence which starts off simply but gets 
very long. During testing of this program no one was able to 
remember more than a sequence of 25. Amnesia usually sets in at 
around 12. As it stands the longest sequence that the parrots will 
produce is 50 long. If you remember that length then you must have 
some sort of photographic memory - or perhaps you are an android! 

This simple game can be great fun at parties where all sorts of. 
forfeits or penalties may be devised for the losers. 
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2 REM <<<) PARROT ANDY / JIM #3332 
= REM 

S addr=3d999:GOSUER 29500 

1® SYMBOL AFTER 223:MODE @ 

12 DIM noch) 

13 INK @,@: BORDER @:INK 12,12 

15 GOSUB 10@6@:GOSUR 105@@ 

22 sc=O:hi=® 

30 GOSUBR 1250@ 

oo FOR a=1 TO 4 

Zé IF a=1i THEN PEN 7 ELSE IF a=2 THEN PE 
N 11 ELSE IF a= THEN PEN id ELSE PEN 13 


40 GOSUE L11@@@:NEXT a 

SS po=@:CALL &BBOS 

a REM 33322 >>> MAIN LOOP <einedade 
n=INTCREND(19%*3)+4+1 

Fo=potrl 

nocpo =n 

GOSUB LSS@O@2LOCATE 1,22:°PRINT "My tur 


7® FOR b=1 TO po 
5 GCSUB 13000 


2@ NEXT & 

82 CALL &BBGS 

SS FOR t=1 TO 1L1@@@:NEXT t 

87 b=1 

S& GOSUB 1S5@@:PEN LIELOCATE 1,22:PRINT " 

Your turn” 

9@ GUSUB 27000 

95 IF le=1 THEN a=d: SOUND 1,900,102: GUSUE 
1200@:PEN 13:GOSUBR L1IS@@:FOR t=1 TO Soo 
=NEXT t 

1@@ IF ri=1l THEN a=2:SOUND 1,40@,1@:GOSU 

B 120@@:PEN 11: GOSUB 1150@0:FOR t=1 TO Fo 

@:NEXT t 

105 IF up=i1 THEN a=1:°SQUND 1,200,1@:GOSU 


B 12@0@:PEN 7:GUSUB 1L1500:FOR t=1 TO Sao 
*NEXT t 

11@ IF do=1i THEN a=S:SQUND 1,600,1@:GOSU 
B 12@@@:PEN 14:GOSUB 1L150@:FOR t=1 TO 30 
@sNEXT t 

1i5° IF let+rituptdoti THEN F@ 

120 GOSUB 12000 

125 GOSUB 119@9@ 
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130 IF no¢cb>)=a THEN 121 ELSE 135 

131 IF b=po THEN GOSUB 1S5@@:LOCATE 1,22 
*PEN 1:°PRINT "Well done,"jpo0" so far." 
132 IF b=po THEN FOR t=1 TO 1L5@@:NEXT t: 
GOSUB 135@0:GOTO 60 

133 b=b+1:GoOTa 9 

135 GOSUB 1350@:PEN 1 

1d@ LOCATE 1,22°PRINT "Wrong sequence" 
lds LOCATE 1,23:PRINT "After"jpo-15" mov 
ements." 

15@® FOR t=1 TO S@@OINEXT t 

1355 GOSUR 13500 

16@ LOCATE 1,22:°:PRINT "Sequence was" 

165 FOR t=1 TO 1@@@INEXT t 

170 FOR b=i TU po 

175 GOSUB 12000 

18@ NEXT k 

135 GOSUB 13500 

1990 LOCATE 1,23:PRINT "Try again." 

195 FOR t=1 TO S2@@OINEXKT t 

29® GOSUR 13500 

205 GOTO 35 

9990 REM 3o>e>> CHARACTERS “aceccedcade 
190@@@ SYMBOL 22d,16,16,16 "16.0,14,51,63 
19@@32 SYMBUL 225.040, 28,126, 1 27,207,207, 
207 


10010 SYMBOL 226,0,0,0,0,0,128,129 
10015 SYMBOL 227,63,49,d0,8,16,33, 35,5 
10020 SYMBOL 228,255,255, 254,124,126, 255 
cand a Lal a 

goby BOS 

10025 SYMBOL 229,0,0,0,0,0,128,192,192 
14030 SYMBOL 230,3,3,3,3,3,1,1,1 

1@@35 SYMBOL 231 295191191 295,225,259 


9247, 251 

104@4@ SYMBOL 232 ,192,192,22d,22d,224d,24d0 
5240, 245 

19445 SYMBOL 2323,1,9,9,0,56,127,90,@ 
10635 SYMBOL 234,253,126,12,20,4d5,252,0, 
2) 


10055 SYMBOL 235, 2d&,120,60,2%,14,6,3,0 
10060 SYMBOL 236,63,30,0,0,7,15,9,0 
10065 SYMBOL 237, 24&,0,0,0,0,0,0,0 
10070 SYMBOL 23S,7,31,63,127,99,99,127,6 


ms 


10@75 SYMBOL 239,1dd, 225,247, 251,139,115 
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ke 
251,255 


L1®@OSe 
toy 2S 


1985 
4,128 
19090 
19095 
Sty eta 
19490 
193500 
LOEOS 
19310 
10990 
11000 
1191 
) 

11015 
11420 
) 

11425 
11430 
») 

11035 
11440 
> 

1li@ds 
lid y® 
11500 
11514 


SYMBCL 240,0,2540, 255,255,255, 2552 
SYMBOL 241,3,14, 252,252, 248, 240,22 


SYMBUIL 242,16,16,16,16,16,16,16,16 
SYMBOL 243, 255,179,85,170,85,170,8 


FEM >>> SET UP VARIABLES #efceade 
PxCl)=1Oi px CZ .Hldipx(S)=6ipx(dy=3 
pyC1o=SipyCZpHlSipy(Sy=H1Si py (do=7 
RE TURN 

REM >> PRINT UPRIGHT PARROT 
LOCATE px Cad, pycad 

PRINT CHR (2245 5 CHR (C225) 5 CHES (26 


LOCATE pxucad spycadtil 
PRINT CHES (227) 5 CHRS (225) 5CHRS (229 


LOCATE pxrcad spyCadte 
PRINT CHR#$( 230) ;CHRS C231) 5 CHES (C222 


LUCATE perdad pyCadts 
PRINT CHE C233) > CHR (23d) CHES CLS 


RE TURIN 

REM 33> PRINT HENT DOWN PARROT 
LOCATE pxCar-lypyCadte 

PRINT CHES (239) 5 CHES (C239) 5 CHES ( 2d@ 


>; CHRS (241) 


113515 
11520 
») 
11521 
2) 


11522 


113525 
11990 
12000 
12005 
12010 
12015 
DOCATE 
12020 


LOCATE pucadm-lypylarts 
PRINT CHR (236) > CHES (23d) 5 CHES (237 


LOCATE pxCad, pyCadtiiPRINT CHRS(2d 
LOCATE pxCad spy Cadi PRINT CHRS(2d2) 


RETURN 

REM 333>> BLANK PARROT «<<< 
LOCATE pxCad, ypyCadt PRINT " ie 
LOCATE pxeCad spyCartitFRINT " a 
LOCATE pxCad-L,ypyCadt22PRINT " " 
LOCATE pxeCad-lypyCadtStPRINT " "EL 
ex Cate ypyCadt+3i PRINT " " 

FE TURIN 
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12490 REM 333>3>33> DRAW SCREEN <<<ceeec 
2500 FOR y=1 TO diPEN 7ILOCATE 10,y:PRI 
NT CHR (242) NEXT y 
12505 FOR y=1 TO 12iPEN 11:2LOCATE td,y:P 
RINT CHRS¢(2d29)=tNEXT y 
12510 FOR y=1 Tl idtPEN 14°LOCATE 6,yiPR 
INT CHES (C2d2)I=NEXT y 
12515 FOR y=1 TO &!PEN 1L2:LOCATE 3,y:PFI 
NT CHES ¢2d2)INEXT y 
12520 FOR x=1 TO 2@:LOCATE x,1:PEN 15: PR 
INT CHR#(¢2d3)2LOCATE x,2@2:PEN S:PRINT CH 
RSC Sd 3)2NEXT x 
253@ LOCATE 19,97:PEN 12:PRINT CHES (2d3) 
5 CHES (2d39 5 CHES ( 2d3) 
{SSS5 LOCATE id, 172PRINT CHES ¢2d3) sy CHES ¢ 
243) 5CHE$( 2ad3) 
125d0 LOCATE 6,19 PRINT CHR$¢C2d3) 5 CHRS (2 
4:3) 5 CHE ¢ 243) 
12545 LOCATE 2,11'tPRINT CHR (242) 5CHRS C2 
4239 5CHRS(2d5) 
12550 INK La,2Zd°INE LS,182°INE id, id 
12560 PEN 13:°LOCATE 7,24:PRINT "PARROT" 5 
12600 RETURN 
12990 REM 355352 >> MAKE SOUND “<<<cedd< 
124000 IF no¢h>=1 THEN a=1?FGOSUR 12000:PE 
N 7°GOSUEBR L1S@@2SQUND 1,200,1@:FOR t=1 T 
MW S@@INEXT t 
12003 IF no¢ho=2 THEN a=2:°GOiSUB L2@o@:PE 
N 11:°:GOSUR 115@@:SOUND 1,4@0,1@0:FOR t=1 
TO S@O@INEXT t¢ 
12@10 IF no¢hbo=3 THEN a=S:GOSUBR 120@@:PE 
N 14:°GO0SUB 115@@:SOUND 1,600,1@0:FOR t=1 
TO S@@INEXT t 
12015 IF no¢cho=d THEN a=d:GOSUB 12Q@@@0!:PE 
N 13:GOSUB 1L15@@:SOUND 1,80@@,10:FOR t=1 
TO S@@IENEXT t 
13O@20 GOSUB 120@@:GOSUB 11@a@@ 
13025 RETURN 
13450 REM 
1S350@ LOCATE 1,225°FO0R q=1 TQ 2@:PRINT " 
"StNEXT ¥ 
12505 LOCATE 1,23:°FOR q=i1 TO 2@:PRINT " 
"StNEXT gq 
12510 RETURN 


Now 'MEFRGE’ the ’INEEYS’? routine. . . 


i9 
Pick Man 


An Arcade Gobble 


This is the first of three arcade type games included in this book. Itisa 
variation on a well known theme in which you guide your character 
around a maze eating up the dots as you go. 

Life is never easy in the arcade world and so there are a couple of 
nasties out to eat up the dots before you do. 

To make matters even worse they will kill you if they get you! The 
object of this variant is to pick up as many dots as possible before all 
the dots are gone, without being killed. Once all the dots are gone the 
next screen will be displayed. 

Controls are, as usual, joystick or cursor pad, which change the 
direction of the Pick Man. 

In the hands of a skilled and patient player, incredible high scores 
can be achieved. The ‘High Score’ subroutine can provide a Pick 
Man Hall Of Fame. 


1 REM ¢e¢eeK 


2 REM 

3@@ SYMECL 
1 

S10 SYMBOL 
43,222 

S20 SYMBECL 


ind 


Ss 


S330 SYMBOL 
49,192 


S5Q SYMECIL 
1 

S60 SYMECIL 
$3,225 

S7@ SYMECIL 


u@ SYMBCIL 
da , 192 
é 00) SYMECL 


610 SYMBOL 


cae “i e 
a i) 3 Pane Pa] 


650 SYMBOL 
660 SYMBOL 
1S 

670 SYMBOL 
24 hi=100®@ 


ete) 
140®® GOSUB 
1440 


REM 3333333333 


Pick Man 131 


fick man <*> ISSI 2232232 


ZdO, 3,15, 623,635,123 ,113,241,25 


241,192, 2d@ 252,252,292, a2, 1 


242,255,255 ,127,127,63,63,15, 
245,255, 259,206,254, 252,252; 2 
245,192,240, 252, 252,222,142, 1 
127,127,63,63,15, 


ce ae 7 = 
246,255,255, 


or oe 


=. yan (ae. 
247, 255,255,254, 254,252,252 ,2 


Se ey CC 
Sdo, 3,27, d9 S23, 65, 65,129 


yo55 


2d9,255,129,65,65 


in 
te] 
hed 
- 
wu 
t 

a 
L 


250,192,176,140,132,130,130,1 


251,255, 129,130,130,132,14d@,1 


252 ,255,129,129,129,129,129,1 


BER 
SD g ms 


25d, 1 


@2,9,0,9 
yASZS,6d,112, 


5 359,%, 
S,11z,6d, 128 


255, 240 


, 14,251, 152,146,240 


ot ot of ot ot ot 


loop #4448aecd< 


oo maiy 


219000 


ScH=Oi count=S:li=S 


1060 GOSUE 20000: t$=CHES$( 2dO)+CHR#(2d1 9: 
bS=CHRS$ (2d29+CHE$ (2435) 


1065 
69 +CHE$ (2 
1074 PEN = 
1O8@ 
1090 
1200 
1510 


LOCATE 16, 
LOCATE 15,2:°PRINT bb sh shh 
K=EZOSy=17 
K1l=Ziyl=dixe=38iysed 


t1$=CHR$ (Sd +CHRS C245) th1S=CHRS C24 
47) 


1iPRINT t$3t%3t% 
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200 GOSUBR 2ZEOaO® 

29290 GOSUBR 25500 

2440 GOSUR 22000 

2030 IF ¢xi=x AND yli=y) UF Cx2=x AND ye= 
y) THEN dead=1 

207@ IF count?255 THEN GOTO 2dooe 

2080 IF dead=1 THEN GOTO 24500 

2000 GOTO Z20@®@ 


199EO REM Perr PPP>P> screen <iddeddddde 
20000 INK @,@:INK 1,18,19:INK 2,6,16:1NK 


2,20,2 

20005 SPEED INK 4,4 
20Q01@ PAPER @:PEN 1:MODE 1: BORDER © 
29020 PRINT "SCORE: 0@ 

HIGH: "shit PRINT 
2ZOO3RO wHe=CHE$( 252 )04+CHE$ (BSS) tx G=CHRE$ (245 
I+CHRSE (250) tvS=CHRS (25359 +CHES (32) 
20035 yS$=CHR$ (2d9)+CHE$ C2519 2 2$=CHRS (25d 
I+STRINGH CS, 2529+CHES$ (255) 
ZOOAO y$HevStvGtvEi sH$=r$+vGEt+vGsi as CHeS$ (od 
S +STRING$ (35, 2529+CHR$ (250) 
20030 PRINT ats 
20060 at=CHE$ (2525) +5$+wHts$+vG+vEtwSts $+ 
CHR (252) 
20070 PRINT at3 i qt=at 
20080 PRINT at; 
20079 aS¥=CHE$ (252) +v$+CHR$ (254) +w$+twhtCH 
RS C250) +vSt+ty$+vG+z$t+vety$+vG+CHES ( 2d5)+w 
$+w$+CHR$ (2S559+V$+CHRS$ (252) 
20100 PRINT ag; 
20110 aF¥=CHRS (S52 0 +r$+whtstt+s$t+vetwHtr s+ 
CHE (252) 
Z2012@ PRINT ag; 
20130 MID#(a$,&, 2 =y$iMID$( as, 32,2)=ys 
201d® PRINT as; 
2QOL50 at=wttw$tCHR$ (250) +r $+x$4+vG4+z$4+vG+ 
x$+tr$+CHR$ (245) +wHtws 
2@16@ PRINT as; 
2917@ aS=wStwStCHR$ (S51) +r$+twh+s$+vetvet 
w$+tr$+CHE$ (249) +wtt+ws 
20130 PRINT ats; 
20190 at=CHRS (252) +r$+xt+vGe+wHt+shtvgt¢vEt 
WHtVS+xX$t+r$+CHRSE (LIZ) 
2O20@ PRINT as; 
20210 aG=CHRS (251 )+rt$+whtvety$t+vG+CHRS$ (2 
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dS) twS+CHRS (251) +y$ 
20220 a$=a$t+CHR$ (249) +wHt+CHR$ (250) +vet+ys$ 
+tVS+w$t+r$+CHR$ C249) 
20230 PRINT a3 
2O2ZdO@ aF=CHRS( SE +v$tuSt+v$tw$tr$t+wHtSTel 
NG$ C6, S2)+WEtrStwHtvGEtxStvs 
2O250 PRINT ats 
ZOZEO MID§( as ,4d, 2 )=yFIMID$( as, 36,2 =yh 
249270 PRINT as; 
SOBZA® AS=CHR$ (250) +r $+wS+vE+s LSt+VS+tWS+STR 
ING$ (6, 32 )+WHtVETKStVSE tWHEtVSECHRS ( 2d3) 
20290 PRINT ats 
203200 aG=CHR$(252)4+MID$ (ah, 2,19 )+whtvs+c 
HES (240'9)+STRING$ CS, 2529 +CHES (251 +vE+wS$t 
MID$( at, 20,10)+CHR$ (252) 
29310 PRINT ag; 
ZOSZO as=whttwH+CHR$ (250 +vS$twHtvstwhts $+ 
VE+VEFWS + VS +WS+VSTCHRS C2d5) twHtwh 
30 PRINT a; 
Z2OSd0 MIDS (as, S, 1 =CHRESCSS1) IMID$ (Cag, Se, 
1>=CHES$ (249) IMID$( at ,3, 2 .=ytiMI Dt at, Se, 
sny® 
ASAIO PRINT as; 
ZOSEO aS=CHES(CZESI+5$4+wHtvG+z$t+vGF+wts $+ 
¢ HF: $C E52) 
"OS : INT ats; 

= h 
Aeon at; 
2OdO0 hbE=CHRS$ (243) +w$tw$t+CHR$ (250) 
20410 MID$§( at, 4, 6)=bS$ 2S MID§ Cas, SF, 69=hbH 
2@d20 PRINT at; 
Z20A30 bS=CHRS (249) +w$+WS+CHRS (251) 
20440 MID$# Cas ,d,6.=hbSIMID§ (as, 32,6 )=bF 
20450 MID$( at, 16,19 )=2% 
29460 PRINT at; 
20470 PRINT q$3;tPFRINT #3 
20430 aS=CHE$( 2499+STRING#S( 35, 2529+CHRS ¢ 
231) 
20490 PRINT as; 
20500 RETURN 
ZOWISO REM dAeen ees initialize “<<e<<¢< 
21400 MEMORY Se 
21010 addr=3d95 
21920 loca=S3502 
21250 RETURN 


GOSUR 27500 
GOSUBR ZSO5a00 


N23 & 
wi 
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21i9S0 FEM 33° ; 

229000 GOSUB 27000 

22010 IF le=i1 THEN GOSURB 
22020 IF ri=i THEN GOSUB : 
22030 IF up=1 THEN GOSUE 
22040 IF do=1 THEN GOSUB 
22190 GOSUBR 264000 

22200 RETURN 

SE930 F PODER? checks <“teecceces 
229000 LOCATE x-1l,y:GOSUR 22000 

23@1@ IF che >32 THEN RETURN 

223050 LOCATE x-1l,yti:GOSUR 2200® 

Z2@6@ IF che 232 THEN RETURN 

22100 GOSUB 233@@:x=~-1:1F x=il THEN x=36 
23150 RETURN 

235200 LOCATE xtZ,y:GUSUuBR 32000 

Z2S210 IF che 222 THEN FRETUFIN 

23250 LOCATE x+2,yt+1iGOSuUR 32000 

Z2IZ60 IF che 232 THEN RETURN 

233200 GOSUBR 23530@:x=K+1L:1F x=S39 THEN x=2 
ZR350 RETURN 

23400 LOCATE x,y-1:GOSUB 32000 

23d1@ IF che 232 THEN RETURN 

22450 LOCATE xt+1l,y-1:GOSUB 22000 

220460 IF ches S2 THEN RETURN 

23500 GOSUR 23500: y=y-1 

23550 RETURN 

234600 LOCATE x,yt2iGOSUB 32000 

22610 IF che 232 THEN RETURN 

23650 LOCATE x+1i,yt2:GOUSUBR 32000 

23660 IF che >S2 THEN RETURN 

23700 GOSUB 2380@:y=yt+l 

Z375Q@ RETLIRN 

23230@ LOCATE x,y:PRINT " 

a 2 LOCATE x,y+ti:tPRINT " . 

23520 RETURN 

23350 LOCATE xi,yil:tPRINT " "SLacATE x1, 
yitisPRINT " " 

23260 LOCATE x2,yzZ:PRINT " "SLOCATE xz, 


eM TT TT 


y2+i:PRINT " " 
23290 RETURN 
ZE9SO REM F>3>3>237>> clear <4<<eceened 


24000 sc=sct1@@@:LOCATE 6,1:PRINT sc 
2d920 RESTORE d@1@@:tune=12:GUSUB 31000 
24030 count=a 
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24090 GOTO 1060 

Zddao REM -PP EES ERE PPD dead teed dddddds 
24500 cH$=tHiddt=hb$: dead=o 

Sd510 LOCATE x,y:PRINT " "SLOCATE x,yti 
*PRINT " " 

SdS3O RESTORE doooastune=a:GOSUBR 32140® 
Sd5d0 GOSUR 2SES502PEN 2 

24550 Li=li-1:IF li=® THEN GOTO 2500® 
24560 LOCATE 153,1:°PRINT c®!LOCATE 18,2:P 
RINT dt 

24570 IF li=1 THEN c#=" "sd$=" " 

2455@ LOCATE 20,1:PRINT c#!LOCcATE 20,2:P 
RINT dt 

ZdS90 IF li=2 THEN c#=" "sSd$=" se 

24600 LOCATE 22,1:PRINT c#!LOCATE 22,2:P 
RINT At 

24610 GOTO 1500 

2d980 REM 2oob boo? move baddies “<4edee 
25000 LOCATE xi-l,yliGOSUuB SQ@O@@:rIF ches 
25°33 AND ch?2d7 THEN RETURN 

Z5OO5 IF ch=2535 THEN count=count+l 

SS@1@ LOCATE xwi-1l,y1l+1:GOSUBR S@@O@@:IF ch 
S2ESS AND chs2a7 THEN RETURN 

ME IF ch= *% THEN count=countt+i 

22020 GOSUB S50:KL=x1-1L:GOSUR ZA@dO2RE 
TURIN 

Z25@50 LOCATE x2-1,y2:GOSUB S@O@O@rTF che > 
25°33 AND chs2d7 THEN RETURN 

ZSQ@SES TF ch=252 THEN count=count+l 
LOCATE x2-1L,y2+1:GOSuUuR 30@@@:TF ch 
AND chs2d7 THEN FETLRN 

IF ch=2535 THEN count=count+l 

25070 GOSUB SESS@:ix2=x2-1:GOSUB SEOdO°RE 
TURN 

2510@ LOCATE xitZ,y1:GOSUB S@OO@rIIF ches 
253 AND ch22ad7 THEN FETURN 

SEI@S IF ch=253 THEN count=count+h 

25110 LOCATE x1itZ,y1+1:GOSUBR 2@@@@:IF ch 
22S SS5 AND ch22d7 THEN RETURN 

2oliS IF ch=253 THEN count=countt+l 

25120 GOSUBR 2SSSO:ix1L=x14+1:°GOSUB ZE@dO:KE 
TURN 

2oULS@ LOCATE x2+2,y2:GOSUR 2@O@@21F che > 
253 AND ch22d7 THEN RETURN 

SSL55 IF ch=252 THEN count=countt+i 


> 
as, 
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25160 LOCATE xZ+2,y2+1:GOSUEB 300@@:IF ch 
{2253 AND ch>Z47 THEN RETURN 

25165 THEN count=count+l 

25179 GOSUB Z3SS@ix2=xS+1IGOSUR Z6Qd0IRE 
TURN 


25200 LOCATE xul,yl-1L:tGUSUR SOOO@OlTF ches 
25-2 AND ch*#2d7 THEN RETURN 
SS2OS IF ch=253 THEN count=countt+i 

25210 LOCATE xitt,yi-1:GOSUB 300@@:TF ch 
2253 AND ch 247 THEN FE TUPFN 

22215 IF ch=253 THEN count=count+l 
25220 GOSUR B2ESROsyl=y1-1:GOSUB SE@dQIReE 
TURN 
25250 LOCATE xZ,ye2-1:GOSUB S3O@@O:TF che» 
2203 AND chs2#ad7 THEN FETURN 
ZSaS55 IF ch=253 THEN count=countt+l 

235260 LOCATE xe+1l,ye-1:GOSUR 3@@@@:IF ch 
43253 AND chi2d7 THEN RETURN 

25265 IF ch=253 THEN count=count+l 
252760 GOSUR Z2EESO:ys=ye-1:GOSUBR ZSEO@d@Ii RE 


S5S@0 LOCATE x1l,yyilt2ZiGOSuB S@OM@l1TF che & 
= AND chs2d7 THEN RETURN 
a@5 IF ch=253 THEN count=counttl 
SI31@ LOCATE xiltl,yitS:GOSUB 3000@:1IF ch 
ei SEO7 THEN FE TURIN 
25515 IF ch tS THEN count=count+l 
22320 GOSUB 2SBESOtyi=y1l+1i:GOSUB S6QdO°RE 
TURIN 
naa LOCATE x2,ye2+2:GOSUBR SO@OMO@lITF cha > 
23 AND ch22d7 THEN RETURN 
ZoSSS IF ch=255 THEN count=count+l 
25360 LOCATE xe+1 sYetSZiGNSuR 2@@@O@=lIF ch 
S2253 AND ch2e24d7 THEN FETURN 
253565 [F ch=253 THEN count=count+l 
25370 GOSUBR SASSO: ye=ye+15:GOSUuB 2e@dar Re 
TURN 
Zad@0 RETURN 
Za500 IF FENDC1)2@.7 THEN GOTO 25550 
22010 IF xxl THEN GOSUB 25100 
25520 IF xxi THEN GUSUR 25a 
25530 IF ysyi THEN GOSUB 25200 
255d@ IF y<yl THEN GOSUB 25200 
2955@ IF SNe te oes THEN FE TURN 
20560 IF xoxe THEN GCISUB 2E1S@ 


hina 


25570 
SSS80 
25590 
ZEEOO 

S90 


2EOAO 
ZAOALA 
SAO 


BOWE 
21000 
Z1O1% 
214020 
S1@3a 
21440 
SLVe@ 
SZOA®D 
@1a 


S2OL2O 


Do Sa he 


INT sc 
S20 30 
S2OdO 
SLOA@ 
SEOIO 
Sd 720 
SEO 
S010 
SSOZO 
BRLED 
SSO3Q 
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IF xixit THEN GOSUB 25050 
IF yoy2 THEN GUSUEB 

IF yey2 THEN GUSUE & 

RE TLUEN 

REM &: 
PEN = 
LOCATE x ,ytPRINT t& 

LOCATE x,yytliPRINT kb 

RE TFN 

PEN 3 

LOCATE xi,yitPRINT t1i¢ 

LOCATE xl,yyltiliPRINT bit 

LOCATE x2,y2iPRINT ti 

LOCATE xS,y2+1:iPRINT bit 

REM oo: Soe play tune feeds 
FOR n=1 TO tune 

READ note,dura 

SOUND 2,note,dura,is 
NEXT 1 

FEE TLIRIN 

REM o: 
GHSUB 
PEN 1 
IF ch=253 THEN ch=S3i2isc=sct+10:Sin 
@,L1,1l5iconunt=count+1Li Locate 7,1°PR 


2B a at poet Ge 


prant man “Halas 


IF ch=S2 THEN PRINT " "iRE TURN 

IF ch22a7 THEN RETURN 

dead=1 

RE TUFN 

FEM eb end game ¢<fideede 


LOCATE &,3:PRINT "YOU HAVE BEEN Gt 


LOCATE &,21:PRINT "Press ’Y? to pl 


ay Again" 


SIOd@ 


IF scthi THEN hi=scilLOCATE 10,9:PR 


INT "A new high gokble !" 


Sa La@ 
Saole@ 
35170 
IPI] 
doOaae® 
19,20,. 


a$=INEEY#: as=UPPERS Cas) 
IF a$fe"Y" THEN GOTO 35150 
GOT 1000 
FEM * * * dead tune * * * 
DATA 25a 

S19,20,5 


ara 


120, 28d, 20, 28d, 20, 3555,75,5 
19,20,379,75 
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dO@o7O0 FEM * * * screen tune * * * 
4101@@ DATA 317,29 SO@,2135,50,253, 20 


729,255, 2¢ Bye, 
is 720, 253 4 


40110 DATA 319,20, 25%, 20,213, 50,253, 20,3 
19,220,253 ,50 


Now ’MEFRGE’ the %INEEYS? and the 


TCHAR CHECK? routines. « « 


tf 4 se SHR SH WH os 


One Jump Ahead 


‘Once upon a time in Australia, which is a long way from Britain, 
there lived a little kangaroo. This little chap was called Skippy and he 
was very happy for many years. 

‘Skippy had his home by the banks of a fast flowing river on which 
logs floated. He used to enjoy sitting in his little hut looking out 
across the beautiful countryside, but one day things changed. 

‘The nasty humans came, and built a car expressway right next to 
the river. This meant that every day when Skippy and his friends 
returned from foraging for food, they had to cross the busy road, 
jump onto the logs to cross the river and then jump off as they passed 
their home. This is very dangerous and so they would like you, dear 
readers, to help.’ 

Using the joystick or keyboard guide Skippy and his friends safely 
between the cars, onto the logs and into their homes. Your assistance 
to wildlife will be rewarded with points in relation to how well you 
guide each kangaroo! 
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This game can be merged with the ‘High Score’ program to add 
those extra features to it. 


19 FEM <<< SKIPPY ANDY / JIM 

20 REM 

3@ SYMECIL AFTER 223 

40 MEMORY 34990 

60 GOSUEB S5@ 

65 gam$="Skippy" 

70 REM 

11 REM 33>> DEFINE ORJECTS <4ececedcde 
120 car$=CHR$( 22d )+CHR$ (225) 

129 lor$=CHRS ¢ HO +CHES (227 9 +CHRS (226) 
144 bik*=CHES$ (2d 19+CHRS$¢ 2d2) 

20 lot=CHR$ (229) +CHRS$ (230)+CHE$ C2519 
135 gap$=CHR$ (2d5)+CHRS$ (2459) +CHES (2d 5) 
160 g$=STRING#(2," ") 

165 h$=STRING$(3," "9D 

17 cl#=car$t+carstgtt+ystyFtyFt+car#F#+gs+gs 
+car$t+cars$+car$t+y$t+carsty$tcarst+carhs+gh+ 
gt+g$tcars+gs+g$+carst+gs 

173 cl$=cl#+carst+tcars+ygstgst+gs+carst+cars 
+car$+carg+g$t+tg$t+g$t+g$t+carst+g$tcarst+gttc 
ar$+cartt+g$+gst+ty$+carstg$+gstcars+cars 
18 c2$=Lor$th$th$+h$t+hS+lorsth$t+lorstlo 
PrE+HHS+NS+ LOr$th Sth $+h $+ lLOr St hS$tH Sth Sth $+ 
lor $t+ht+h$t+h$+lor$+lor $+ lor F$+h Sth Sth sths 
+" "+lLors+ht 

199 C3$=bhikSt+hikSth$SthSt+gS$thikSthikSthik 
SthHikSthikSthSthStgsthikSthikSt+hikSthiks 
thLRS+tNS+H St" U+thikS+gGh+hikG+hs+" “+thiks 
thi kSthikSthSe" “thi kSt+h$Sth Sth $+ gSthik s+ 
hLRS+NS+ANSt+ GH$thikSthikS+hikSthiks 

£90 11¢$=lo$tygap$tyap$t+tyap$t+lost+ygap$t+lost+ 
gap$+log+ygap$+logs+yap$t+tgaps+ygapst+gapstlo 
$t+tyapst+tgap$t+los+los+gap$tygapst+gap$t+los+] 
O$+1lo$+CHE$ (2459+CHRS(2d5)+lostgapstygaps 
+ygap$t+lost+tyap$+los 

210 12$=lot+lost+gapstgapstlostgapSt+lost+y 
apSt+gap$t+lot+lost+gap$t+lot+gap$t+ygaps+lost+ 
lo$+gapt+lot+lost+gapSt+gap$+lot+gapstlos+ 
gap$+gap$t+lot+lost+ygapst+gap$+lof+ygaps+los 
215 FOR a=1 TO 10@?riv$=riv$+CHR$¢ 2d) IN 
EXT a 

220 FOR a=1 TO 2@thani*=ban1l$+CHRS(2d3): 
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NEXT a 
230 FOR a=1 TO 2@ STEP dihanit=ban1lsS+CHF 
$C 2d3590+CHE$( 2d 3)+CHE$C2d3)+" “INEXT atha 
nN1ISG=LEFT$S Chani, S97) shbanig=hanl$+CHR$( 243 
) 

Z2d0 FOR a=1 TO 10@:hanZt=hanZs$+CHR$¢( 2dd) 
*=NEXT a 

250 FOR a=1 TO d@than3$=banS3$+CHR$ (2dd ) : 
NEXT a 

ZEaS FOR a=i TO 2Othand$=hand$+CHE$(2d3) 5 
NEXT a 

260 hi=@ 

3500 ka=3sgc=@ 

31 GOSUB 71® 

SIS REM foros 


>> SET UP VARIABLES <<< 
320 cl=-Lickh=1Lic3k=-1Lill=1:12=-1 

S30 ccl=GO:ccB=LiccS3=S0:111=70:112=10 
S40 k=232°b LESSER IkS=2353 

S50 kx=1@tky= 
S60 OX=10!0y=22 

S62 kah= 

S65 REM Sooo >> MAIN GAME LOOP tcc dae 
370 GOSUEB S70 

275 ret=1:GaTa 7do 

3735 Ox=kxioy=ky 

376 GOUSUR doaaeo 

4O® ccl=ccltclicck=ccktchiccs=cca+cs 

4@7 LI1L=ll1+1litlilg=lle+1l2 

420 IF ccl=1 THEN ccl=s1 

420 IF ccB=c1l THEN ccz=1 

440 IF cce3=1 THEN cct=S1 

450 IF 111=81 THEN 111=1 

460 IF 1l1l2=1 THEN 112=81 

4641 IF ky=& THEN kdx=-1 

462 IF ky=6 THEN kdx=1 

d63 IF kxtkdx=0 OF kxtkdx=21 THEN S3@S 
464 ret=2:5GOTO 7d@ 

S10 ox=kxtoy=ky?GOTO 370 

560 REM #3>33>>> PRINT OBSTRUCTIONS <ics 
a70 PRINT CHES C50) t PRINTIINEK 2,20 

S80 PRINT: PRINT:PEINT:PEN 1@:PAPER @:PRI 
NT MID#¢Le2%,LL2,17) 

S90 PRINT:PRINT MID$¢(Li¢,LL1,197)*PRINT=P 
RINT: PRINT: PRINT 

60@ PRINT: PRINT: PRINT:PAPER @:PEN &:°PRIN 
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T MID$(C3$,CC3,19) 

61@ PRINT?PEN 2:PRINT MID#$(C2$,CCE,17) 

620 PRINT:PEN 7:PRINT MID#¢(C1$,CC1,1°%) 

630 RETURN 

650 REM +oo>2>> PRINT EKANGARCC fogdece 

690 PEN 12:PAPER @:LOCATE kx,ky:PRINT CH 

RCk) TRETURN 

692 FEM 333352 > ERASE FANGAROO <acades 
693 IF oytS THEN cc=S2d2iPAPER @:PEN 15 

69d IF oy=S OR oy=6é THEN cc=@:GOTO 7a 
6495 IF oysd AND oy#1l1 THEN cc=207:2PAPER 
1@:PEN id 

696 IF oy?% AND oy#1iS THEN cc=2ddi PAPER 
@:PEN 1a 

697 IF oyz1id AND oy*22 THEN cc=32'PAPER 
@:PEN 12 

698 IF oys2Z1 AND oy*2d THEN cc=2dd: PAPER 
@:PEN 1d 

699 IF oy=2d THEN cc=2d3sPAPER @!PEN 15 
7@@ LOCATE ox,oy?:PRINT CHR#( cc)? RETURN 

7035 REM 33333332 DRAW SCREEN “aces 

71 MODE @FINK 15,2d°1NK askaschete RORDEF @: 

PAPER @:CLS!:PRINT CHR (30):2°INE @,@thord 
ro@ 

720 PRINT?:PAPER @!PEN 1SSPRINT bandits :PA 
PER @:PEN 1@0:PRINT riv$;:PAPER @:PEN 1d: 

PRINT banZéiPRINT: PRINT? PRINT? PRINT? PRIN 

TEPRINT?PEN 14:2 PRINT ban3$3;2PEN 15: PRINT 
hands 

72a PRINT CHRé¢2@)35"Score High Skipps 

720 RETURN 

735 REM 3332 MOVEMENT FROM INKEYS 

740 GOSUEB 27000 

745 CALL &BROS 

730 IF wept AND ky<{11 THEN k1i=232°k2=233 
Pkdy=—-2itkdx=O@isc=scti ELSE IF up=1 THEN 

KLSS3Stke=2aSikdy=-Likdx=@isc=sctl 

760 IF ri=i AND kxe19 THEN k1=235d tk S=235 
tkdx=Likdy=@ 

77@ IF le=i AND kx31 THEN k1=236?:k2=237: 

kdx=-Likdy=0 

773 IF ex=1 THEN END 

730 IF do=1 AND ky#11 THEN k1=235: 
tkdy=Z2ikdx=@ ELSE IF do=1i THEN ki 

B23S9 i kdy=1Likdx=@ 


7&1 kxekx+k 
WBA SOoOaaw 


7&2 IF le=1 


FOR so=300 


ee so 
TE kdlx=@ s 


wm x 
S fm tp 


eer ELSE 


No mm ANN I> 


30 REM 3: 
a0 SYMBCL 
6é0 SYMBOL 
ad 
a7@ SYMBCL 
230 SYMBOL 
S90 SYMECL 


@@ SYMBOL 


3@ SYMBOL 
40 SYMBOL 
20 SYMBOL 
24 SYMBOL 


® SYMBECIL 
®@ SYMBOL 
@ SYMBOL 


a - o3 VO ao a bo 0 “ 
“NPR tle 


1010 SYMBOL 
102@ SYMBOL 
1030 SYMBCL 
S24 

1@4@ SYMECIL 


oc Can] — 
255,255 


16030 SYMBOL 
7,127 
105 ‘1 SYMBOL 


Absa) 


PRS CHARACTER: DEFINITIONS #25 


a@a® SYMEBCL 
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dxtky=kytkdy?LOCATE kx,ky? GOS 


CR upesl OR do=1 OR ri=1 THEN 
To @ STEP -1@:SOUND 1,s0,1:N 


kedy=@:TF k=ki THEN k=k2 ELSE k 


GOTO Za@a@ 
GOUSUB & 


FS:GOSUB &9@:21IF ret=1 THEN GU 
GOTO 31® 


25,56,127,219,2351,36,2 


225,128,64,32,252,215,229,38 
226,0,90,0,0, 255, 255,60, 2d 

227 64 yes) 64,64,255,255,123,0 
BOS, 7 4 F,9,63,127,127,7,5 

eee ai 109,182,109,218,125,1 


230,255,118,235,1982,47, 254,93 


251, 250,2135,190,91,182,109,18 


SG, 24,990,690, 24,609,600, 219 
Z6,20,20,60,90,159,126,356 
"4,12, 14,24, £0, 128, 18d, 9d 
ys, ed, 25,20 ,60,61,55,220 
236,32,0d58,112,24,60,61,29,122 
237 , 16,2456 ,24, 40,155 ,92,5'9 


,= Zi, £0, 60,20, 6a, 90, ad TE 
239, 36,126,129, 74 ,60,2d,2d,35 


240,0,0,67,172, 240,192, 255,90 
241,9,1,51,14,55,72, 72,48 
242, 96,200,2%dd,12,15d,164, 22 


U4 mer ee ee eer ae ee 
ZaAs ge gy abt g hg Sg ag ag 


244.,@,127,127,1275127,127,12 


,170,95,170,S5,170,85,17@ 


1960 addr=Sd999 :>GOSUB 295a0@ 


1065 loca=3 
1070 RETURN 


SO@20:GOSUBR 30500 
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14990 FEM 333>> CHECK COLLISION <eeee 
22000 IF ky=d THEN 25030 

22005 IF ch=S2 OF ch=2dd OF ch=® THEN 79 

@ 

25010 IF ch=Z29 OF ch=23@ CIF ch=231 THEN 
779@ 

Sa@11 IF chs231 AND cht2d@® THEN 7%7@ 

25015 GOTO S@hae@ 

25030 IF kx=d THEN S@OO@ ELSE IF kx=e& TH 
EN 3@@@@ ELSE IF kx=12 THEN S@@0®@ ELSE I 

Fo kx=16& THEN Soaoo 

25031 ccH=2d3iox=kxtoy=kyiGOTU S@5a@ 
39990 FEM 333>> SCORE,HIGH,SEIPPS «aces 

d@00@ PRINT CHR#(32@):PRINT scjyTARC 7) 5ha3 
TARBC 1S) jka 

d@@OS IF scthi THEN hi=sctGOTO daaoe 

40010 RETURN 

49990 REM 3o>>> KANGAROCG IN BAY 

S0@0@0 IF cht >32 THEN S@S5@@ ELSE k= 


Sch GO 

SUB 69@:sc=sctStkab=kabtiiFtk m=1 TO S6F 

OF so=1l TO 2@@ STEP 1@:SOUND 1,s5s0,1?NEXT 
SOtNEXT wn 

S@OOS IF kab=d THEN 310 ELSE kx=1@tky=22 
>GOTO 79a 

SOd9@ REM 32> KANGAROC SOLUIASHED |! «a2 

5O50@ GOSUB &9@:SOUND 1,19@@,32@:SOUND 1, 


yo 
3000,6@:GOSUBR 693ika=ka-Likx=1Otky=22to0x 


=1@020y=22 
SOS@5 IF ka=-1 THEN GOSUB 6@00@:GOTO 300 
S051@ GOTO 370 

Now °MERGE’® the *INEEYS’ , the 

"CHAR CHECK? and the ’HIGH SCORE? 


routines «= « « 


21 
Kinkey Dong 


All Action Climax 


This, the third arcade style game, is loosely inspired by a group of 
games in which the hero must jump over obstacles as he climbs up the 
ladder to get higher and higher through the screens. 

The evil monster that appears on each screen has in fact abducted 
the hero’s girlfriend and locked her up. He now spends all of his time 
rolling large barrels down to crush the hero. 

There are three different screen layouts and if you are successful 
then the game continues through from the first’s screen to give higher 
scores. 

Movement is by the now familiar cursor keys or your old friend the 
joystick. The little hero can be made to jump by pressing the copy key 
or the fire button. 

By following the instructions contained in the chapter on 
subroutines it is possible to merge this program with the‘ High Score’ 
subroutine which will provide a Kinkey Dong Hall of Fame. 
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ff kainkey dong <> ISS] Fiebe> 


200 SYMBOL 
210 SYMBOL 
a2@ SYMEBCL 
£0 

S30 SYMBCL 
129 

Sd SYMECL 
350 SYMBOL 
S60 SYMBCL 
,~ 130 

600 MEMORY 


AFTER 
241,66,12 
2d2 60,66 


#45, 255,165,165, 56,66,66,129, 
Zdd, 56,60, rgunie Vag eae. 16,28 
245, 25,60, poe, dd ee, 8,54 


246,186,186, 146, 124,56, 65,130 


34d 95 


730 GOSUEB 2200 


19@® GOSUE 
114@® GOSUB 


ZOOOa 
1'7O0O 


S@0 IF lev=1 THEN GOSUB £11900 
15140 IF lev==2 THEN GOSUB 21200 
pees IF he 3% THEN GOSUER 21300 


Lido GOSLUB 


21500 


SiO yetty=25 


1560 bx=Lth 
1570 cx=Z@: 


y= Jibd=1Libe=@ 
cy=7icd=-lice=@ 


15580 IF lev=3 THEN bx=7icxn=15 


120 GcoSlk 
1310 GNOSLIB 
e2@ GUCSLIE 
1330 PEN 7 
Lhd LOCATE 
1550 GOSUE 
1360 IF y=1 
1870 LOCATE 
LESO@ GOSLUB 


1890 IF che? 


7) 

197% LOCATE 
19710 GOSLUEB 
19720 IF ch= 
19d@ PEN 7 


24000 
S5aO@ 
24500 


x,Y?PRINT oms 


23000 

THEN GUTC Sooo 
Xyy 
SOOOOD 


Z2d1 AND ch<?32 THEN GUTd Sao 


x sytl 
20000 
ZZ THEN y=yrti 


1950 
1960 
ZOO® 
ZaO® 
TORO 
3060 


LOCATE bx, byt PRINT ob 

LOCATE cx,cy:PRINT oct 

GOUTQ 1500 

lev=lev+i:IF lev=d THEN lev=1 
sc=sct(Clev*¥ia) 

LOCATE 7,25:PRINT sc 
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S079 GOTO 150@ 

50@® SOUND 2,3900,735,15,0,0,390 

S@1@ Li=li-1:1IF 1li=@ THEN GOTO 6000 
2020 FOR n=1 TO li 

3030 LOCATE 17+n,25 

s04d@ NEXT nm 

SO@5Q PRINT " "5 

3960 GOTO 150® 

6000 CLS 

6005 PRINT?IPEN 3 

6010 PRINT " TOUGH MONEEYS !" 
6020 (PRINT OO Seres resents 7 
6430 LOCATE 2,1@:2PRINT "You scored "j5sc3 


6040 
OE 


GOT 
FEM 

14@ao SYMBOL 
19@10 SYMBOL 


3 
1O@a20 


So 


SYMBCQL 


196020 SYMBOL 
19040 SYMBOL 
255,215 

1@@5@ SYMECL 


128,125 
10060 SYMBCL 
10070 SYMBOL 
560, (2) 
Laas  SYMBECIL 
zd, i124 
10090 SYMBOL 
7 
1@1@@ SYMECL 
19110 SYMBOL 
sand, 156 
10120 PEN 15 
10130 LUCATE 
9) CHES C230) 
191d@ LOCATE 
2) yCHR$ C233) 
1015@ LOCATE 
5S) sCHRS (236) 
1@16@ LOCATE 


LOCATE 5,25: PRINT 
a$=INKEY$i1IF ag="" 
£060 SOLIND 1,250 
1@o@ 


"Press Any Key" 
THEN GOTO 6050 


,25,15 


ee monster <<<Kdecdsd 
19,9,16,dd,62,28,56,112 
29, 66,126,979, 126,196,5 


@,0,0,8,52,124,56,28,14 
(412,121. 1275655314 74251 
60,255,255, 255,231,215, 


,14,158, 254, 252,248,224, 


234,1,35,15,15,51,63,62,62 


235,171,213, 235,215,235, 255 


PRG,128,192, 240,240, 2de, 252 


237,39,15,15,3,59,127,127,5 
238,0,9,9,@, 129, 195 195,129 
237, oo oie ean oe as 


2 ,1iPRINT CHRS (228) 5CHRSCEZ 
Z,ZIPRINT CHES C251) 5 CHRSCES 
2 ,SIPRINT CHR& (23d) pCHRS CES 


S2,4:PRINT CHRS C237) 5 CHRS (CES 
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3) 5 CHES (237) 
19200 RETURN 
18980 FEM 
1990® sc=@:11i=3 
19910 lev=1 
197@20 LS$=CHRE$(2d1) 
17020 b$=CHES$ (2d2) im$=CHES (Sd ) 
1710@ RETURN 
19V9SQ0 REM 333>5>>2> set screen tfeacedn? 
29000 RESTORE 2000% 
20010 FOR n=@ TO 1s 
20020 READ a 
ZO@30 INK nya 
20040 NEXT mn 
Z2OO30 BORDER @:PAPER @:PEN 1:!MOQDE © 
20100 RETURN 
20200 DATA O,15,6,24d,20,7, 15,2 
290210 DATA 22 i) 17 19426,3,22415 
20920 REM : wes = : 
21000 ps= =STRING#(2 @, 243) 
21910 CLSipe=1 
21020 FOR n=s TO 2a STEP a4 
Z1@Z5 PEN pe 
21920 LOCATE LyntPRINT ps 
21440 pe=petl 
21070 NEXT 
219050 RETURN 
21095 REM * * * one * * * 
2110@ GOSUB 2140o 
21120 FUR n=S TO 2 STEP 4 
Z113@ po=RNDC1)*17+2 
Z1id@ IF nesd THEN LOCATE po,yntPRINT " " 
21150 lpo=RNDCL2#*#174+2°1F lpo=po THEN GOT 
M 21150 
21160 IF neizd THEN po=lpotGOSUR £1700 
21170 PEN 10 
21180 NEXT wn 
21190 RETURN 
ZLII9S REM * * * two * * * 
21200 GOSUB =1000 
212@5 PEN 12 
21210 FOR n=1i13 To 2a 
21220 LOCATE 7,n?PRINT STRINGS (CS, 207) 
2123@ NEXT wn 
Zl2d®@ LOCATE 7,19: PRINT STRINGS$(8, 32) 


start game saacgaces 
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21256 LOCATE 7,23:PRINT STRINGS(3, 22) 
21260 LOCATE 7,15:2PRINT STRING$¢(S, 32) 
21270 porSin=s:GOSUB 2174@ipo=lsin=12:60 
SUE 2170®@ 
21275 po=Sin=16:GOSUB 21I7G@! poHlSin=202G 
MSUBR 2170@ 
1 PEN 1 

‘ RETURN 
REM * * * three * * * 
GOISUR 214000 
ZIS1@ LOCATE 1,8:PRINT STRING$S(S, 22) 
LOCATE 16,52: PRINT STRING#$( 3, 22) 
Z£132@ LOCATE 1,12°:PRINT STRING$(d,32 
SLEd@ LOCATE 17,12:PRINT STRING$(4,32 
21250 LOCATE 1,16!PRINT STRINGS¢2,. 
21260 LOCATE 19,16:PRINT STEINGS$ (2, 32: 
212370 po=7in=12iGOSuR 21740 
21380 po=ldin=12:GOSUB 21700 
21390 po=ein=29:GOSUB 21700 
21400 po=1Fin=2O:GOSUBR 21700 
21d190 po=Fin=16:GOSUR 2170@ 
21d20 po=lein=16:GOSUR 217a@ 
S1d30 po =1@in=a:GUSUR 2170@ 
Sldd® po=lLiin=s:GOSukR 21740@ 
SLldSo LOCATE &,2@:PRINT " "LOCATE 15,20 
*>PRINT " " 
S1dS5 PEN 10 
21450 RETURN 
Z1d9®@ REM * * * top * * * 
21500 LOCATE 1,25 
SLS@E PEN 1 
21510 PRINT "SCORE:"3sc 
2LS20 LOCATE 16,25 
2LS25 PEN & 
zt 0 FOR m=1 TO Li 

215d@ PRINT CHES (C245) 5 
ZLSS@ NEXT mn 
21555 PEN 7 
21560 LOCATE 1S,62:PRINT STRING$¢S, 243) 
21570 PLOT 0,525: DRAW 150,325 
SLSE0 po=lein=2°:GOSUB 21700 
21650 GOSUB (oa0o 
21650 RETURN 
216970 FEM * * * ladder * # *¥ 
21700 FOR z=@ TO 3S 
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217035 PEN 7 

Z2171@ LOCATE po,yntz 
21720 PRINT 1% 
Z173@ NEXT =z 

217d@ RETURN 

219750 REM =: RD 
22900 addr=34d999: GOSUB 


220190 loca=S502d:GOSUBR 20300 


22150 RETURN 
22950 REM 
239000 GOSUB 27000 

Z23@5@Q IF le=1 AND x22 THEN x 
(245) 

23060 IF ri=i AND xii9 THEN 
$C 2dd) 


Pt ot ot 


Sa SLO EEE 
as i i i i i 


=o Li m$=CHRES 


K=ExX+ 1 IE MS=CHE 


23070 IF up=il THEN m$=CHRES(2d6)2>GOTO 235 


YC) 


22030 IF do=1 THEN m#=CHRS$(2d6):GOTO 23d 


ad 


23090 IF fi=1 THEN GOTO 23500 


23250 RETURN 
23300 LOCATE x,y~1 
23305 GOSUB 20000 


25510 IF cht ?2@di THEN GOTO 233250 


y=y-1:GOTO 23080 
LOCATE x,yti 
23560 GOSUBR S00aa 


23370 IF ch=Zd1 THEN GOTO 222320 


23380 GOTO 23080 


23400 LOCATE x,y+1 
23d05 GOSUB 20000 


23010 IF che eedi THEN GOTO 2309@ 


Z23d20 y=y-1:GOTO 23090 


23500 IF m$=CHRSC2d59 THEN xd=-1 ELSE xd 


=1 


23510 IF x<2 OR x19 THEN xd=@ 
23520 IF m$=CHR$¢2d6) THEN xd=@ 


2353@ LOCATE bx bytPRINT ob 
225540 LOCATE cx,cy:PRINT oct 
25610 RESTORE 23750 

23650 FOR n=1 TO 6 

253660 READ a 

23670 y=y+taiGOSUR 23550 
23680 IF plat=1 THEN n=11 
25690 NEXT n 
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23700 GOSUR 2dS50o 

23710 RETURN 

DATA -1,-1,9,9,1,1 
x=xtxdiplat=o 

LOCATE x,ytl 

GUSUBR ZOOO® 

IF che 232 THEN plat=1:RETURN 
IF x2 THEN x=2 

IF x19 THEN x=1%9 

GOSUB 24doaa® 

GOSUB Zdio@ 

SAUND 2,19@,2,15 

PEN 7 

LOCATE kx, ,bytPRINT obs 
LOCATE cx,cy!tPRINT oc 

GOSUBR 2500 

LOCATE x,y#PRINT om 

FEE TLIFIN 

REM 3SRRRRS PEP print “aad d dad a 
REM * * * mar * * * 

24000 LOCATE x,y:GOSUBR 3000 

24010 om$=CHRS¢ ch) 

Zd@20 PEN & 

24050 PRINT m$ 

24100 RETURN 

Sdd90 FEM * * * barrels * * * 
24500 LOCATE bx, byt GOSUR Sa0eo 
24510 oh$=CHES( ch) 

24520 LOCATE cx,cy?GOSUR 30900 
245230 oc$=CHES¢ ch) 

Zd5d@ PEN & 

245350 LOCATE hx,hky 

24560 PRINT hb 

24570 LUCATE cx,cy 

20550 PRINT bt 

24600 RETURN 

204980 REM 33332 RPE? barrel <ieccdd edd 
25000 a=KRNDC1)*10 

S5Q0O5 LOCATE bx,hyt+1 

25010 GUSUB ZO@a0e@ 

25920 IF ch=S32 OR ch=2d1 AND aS THEN he 
=1 

25020 IF ch=2d2 THEN he=@ 

25040 by=by+thetIF be=@ THEN bx=bxtha 
25050 LOCATE cx,cytl 
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SSQ060 GOSUB SMooe 

25070 IF ch=32 OF ch=Zd1 AND a?2a THEN ce 
=1 

25080 IF ch=2d3 THEN ce=@ 

Z5@90 cy=cyt+cetIF ce=@ THEN cx=cxtca 
Z2S1@@ IF beee@ THEN bd=1 

S3105 IF bxeoid THEN ba=-1 

2511@ IF cue THEN cad=1 

SSLL5 IF cxsi% THEN cad=—-1 

25130 IF (Cheese OR bxtlo> AND by=23 THEN 
beeLlibd=Liby=7'IF lev=3 THEN bx=7 

Z2Sld@ IF ¢cxet2 OF cxt19) AND cy=23 THEN 
CxX=2@icd=—-Licy=7:1F lev=S THEN cx=1s 
25250 RETURN 


Now °MERGE’ the *INEEYS* and the 


‘CHAR CHECK? routines. 


22 
Word Splash 


Spell or Swim 


This game is a more humane, more fun version of the well known 
hangman game. If the player cannot guess the word in time, then all 
the wrong letters push a character into the water. 

Words can be up to eight letters long but should not contain 
hyphens. The listing has about 60 words already included. More 
words may be added or the existing ones changed. 

Ifa letter is guessed, it appears at each correct position in the word. 
If it is not right then the poor victim is pushed one space along. 
Should the word be completed in time then the little figure pushes all 
the wrong letters back and a new mystery word is offered. 

The word is not shown if it is not guessed and since words are 
randomly selected it may be possible to have the same word again 
later. 

The program is very entertaining, educational and can be 
surprisingly addictive! 
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1 FEM <fe<e< word splash «3 ISSI 2se2e> 
= REM 
SOO RANDOMIZE TIME 
1@®®@ GOSUB 2F1gea® 
15@@ RANDOMIZE TIME 
1510 w=INTCRENDC1)*6@)+1 
1320 wHe=d$Cw) 
£50 GUSUB 2=OO0o 
1600 GOSUB 2daoo 
1619 flay=0 
1650 IF t#t=wS THEN GOTO 200® 
1660 IF LENCg$)=10 THEN GOTO 200@ 
1670 GOTO 1400 
19790 FEM * * * lose * * * 
2000 GOSUBR BAaaa 
ZQO1O RESTORE 2000 
ZO2O FOR n=l TO 10 
2020 FREAD a,hk 
2000 SOUND 2ya,h,is 
2O50 NEXT 1 
2060 DATA 233,20, 25 
2070 DATA 219,290 
2OS0 DATA S77,50, 
2d0@6 CLS 
2d10 LOCATE d,S:PRINT "TOUGH LUCK f" 
2200 GOTO S500 
2990 FEM * * * win * * * 
2000 RESTORE 20a 
2O1@ FUR n=1 TO 16 
32920 READ a,b 
3@3@ SOUND 2,a,h is 
2040 NEXT wn 
SOS DATA S19, 20,250, 20,255 
2960 DATA 317,290, 250,20, 
3070 DATA 31 eye eee 
2030 DATA 254,400,355 ,d0,% 
S220 TF g#=""" THEN GOT de 
FOR n=LENCy$) TO 1 STEP-1 
G$=KRIGHT$C gH ,n-1) 
GOSUEB Sd11@:PRINT " " 
SOUND Lyn*2O,2,15 
FOR p=1 TO Soo 
NEXT yp 
RTC NEXT mn 
Sdea CLS 
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S490 LOCATE 2,3:PRINT "CONGRATULATIONS ! 


LOCATE S,2@:PEINT "Press Any Eey" 
at=INKEY$ 

IF a#G=""" THEN GOTO S520 

GOTO 15@@ 

REM 32D POPE? Screen Sitti s 
29000 FESTORE 20000 

S0@10 FUR n=O TO 1S 

20020 FEAD a 

LOOSO INE Nry,a 

290A0 NEXT vn 

ZOO5O DATA @,20,2,15,6,24,26,0 

20060 DATA @,9,9,9,9,9,9,% 

20100 BORDER @:PAPER @:PEN 1:MODE ® 
29110 LOCATE S,1:PRINT "WOFD SPLASH" 
ZOLZO at=CHE $C LI6904+CHE$CLI9IS) caS=agstattads 
tattattatt+agt 

SOL3G6 PEN & 

2O1d@ LOCATE ad,SiPRINT a& 

ZOL1S50 PEN 4 

2@16@ LOCATE 1,11° PRINT STEINGS(10,207)+ 
CHES (223) 

ZO17® LOCATE 1@,12:PRINT CHES (C2219 

2O@1L18O LOCATE 11,12:2PRINT CHR (207) 

ZO@1L9@ LOCATE 12,12: PRINT CHR (C225) 

20210 FOR n=1 TO 16 

‘A LOCATE tea ,id+n 

SO@Z30@ PAPER 2:PEN 3 

SOBSSR IF nia THEN PAPER @ 

20200 PRINT CHE$¢211)5STRINGS(6, 22) 5 CHES 


a VN 
20260 LOCATE LE,25:PRINT CHR#¢ 205) ;STRIN 
GECH,210) yCHRE (20d) 5 
2Q@300 RESTORE 2020@ 
910 FOR n=s TO id 
PAPER @:PEN 1 
2@330 READ a,h 
S@S3d0@ LOCATE a,h 
SQ@350 PRINT CHES (2d) 5 
360 NEXT n 
20370. DATA 11;10,12,11,513,12,14,13 
20380 DATA 15,14,16,15,16,16 
Z294d0@ PLOT S1@,150,7: DRAW B60,16@ 
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20410 PLOT 4758,15@:DRAW d20,160 
20420 PLOT FS1I@,LSS:DRAW Sd@,1ae@ 
290430 PLOT d75,155:DRAW dd45,150 
20dd0 PLOT S20,1d7°DFRAW 390,150 
26d5@ PLOT d6a,1d7:DRAW 293,120 
20490 PEN & 

20500 LOCATE 1,13:PRINT "WORD:-" 
20510 LOCATE 2,17:2:t$=""ig$="" 
2OS520 FOR mn=1 TO LENCwS) 

20530 PRINT "—"sit$=th+" " 

29540 NEXT 

2O550 PEN 3 

ZO56@ LOCATE 1,1@:PRINT CHES ¢2d5) 
205350 LOCATE 2,29@:PRINT "GUESS ‘?" 
ZO750 RETURN 

2O9RO REM Fo: 
21000 RESTORE - 
219190 DIM dAsCe@) 
219020 FOR n=1 TO 40 
21020 READ dgscn) 
21940 NEXT wn 

RETURN 


initialize “«e¢aege 


720 REM bee oP PP PPP splash! ¢<ececeee 
23000 LOCATE 11,1@:PRINT " " 

23010 FOR n=G To 1d 

23020 INK n, zd 

23030 SOUND 2, 300-n*10,25,15 

23040 FOR q=1 TO 250 

23@5@ NEXT q 

23060 INK 1,@ 

23070 NEXT nt INK 14,24 

23080 INK 7,26:SOUND 2,300,50,15,0,0,31 
23090 FOR n=1 TO 250 

2310@ NEXT n 

INK 7,@:INEK 1id,@ 

RETURN 

REM 23oESEPEPPR input <ceddededee 
a$=INKEY$! at=UIPPERS (as) 

Z2d@10 IF a$<"A" OR aSe"Z" THEN GOTO Zda@ 
@ 

2402 SOUND 2,200,10,15 

24030 flag=O:PEN 4 

Zd0d@ FOR n=1 TO LENCwS) 

24050 IF MIDS(wH,n,1)=a% THEN LOCATE 1+n 
,1G6:PRINT at:MID$(t$,n,1)=abiflag=1 
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Z406@ NEXT vn 

24070 IF flag=®@ THEN GOTO zd100 

240380 SOUND 2,150,5@,15 

24090 RETURN 

24100 gt=at+gs 

Zd11@ LOCATE 1,1@:PEN 4 

24120 IF LENCg#)/Z=INTCLENC g#)/2) THEN a 

=250 ELSE a=251 

Zd13@ PEN 3:PRINT g#;CHR$(a); 

24140 RETURN 

SVIGO REM POPPER PRESS data <<eecedddde 
300@@ DATA ACUTE,AGILE, BROKE, CANDY _COLIGH 
SDRYLY, GNCIME , MISTY, NYMPH, PYGMY 

30010 DATA BARLEY , BODKIN, CEPTIC, DEVOUR:, € 
IGHTY, EXOTIC, FLINCH, GLORIA,HYMN,LYRICS 
30020 DATA METHYL,SPYING, SYRUP, YOGHURT ,V 
ISUAL , WOBEILE , ANCHOVY , RELAX , RHYTHM, RHUEBAR: 
E 

30030 DATA SKETCH, FASCIST, BORING, FATIGUE 
s FROWN, TRUANT, LEMMING, ZING, GLAMOUR ,HYDRA 
TED 

30040 DATA KETCHUP, MYSTIC,NOISY, OCTOPUS, 
SGUID,RAMBLER, SATCHEL ,SEXTANT,YULETIDE,S 
WINDLE 

ZOOS DATA PLAYER, DOCKER, DESTINY, FUTURE , 
LENTIL, FOREIGN, LOGICAL ,WINTER, THIRST ,NAI 
VE 


Ten out of Ten 


This single program can offer questions for ‘primary’, ‘junior’ and 
‘senior’ levels (that is everyone). The question can be of any one type, 
selected from plus, minus, multiply and divide. The questions and 
answers are drawn to a blackboard to help make the presentation 
attractive. 

Selecting the primary level will set up problems which involve 
counting two sets of ‘little men’ to produce a total. The junior level 
provides options for the four types of arithmetic and produces 
questions which have whole number answers. It should be possible 
for most adults and older children to work these out mentally. 

The senior level would require a very strong mental arithmetic 
ability and is designed to set problems which can be worked out using 
pencil and paper or even a calculator. 

The answers are required to be typed in and then sent to the 
computer using the ‘Enter’ key. This means that mistyped answers 
can be corrected if spotted before the ‘Enter’ key is pressed. The 
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program will allow up to two wrong trys before revealing the correct 
answer. 
At the end of ten questions the computer will print up a ‘report’ 
showing the number of correct answers and a percentage score. 
After “RENUM 40000,5” the game Rainbow Breakout may be 
merged with this program to provide a fun reward for getting ten out 
of ten. 


1 FEM #aeeeee4 sum fun <> ISSI RRR 


1240 GhSUE 2000 

1300 LOCATE #1,2,3:PRINT #1,"12Primary" 
1210 LOCATE #1,2,5:2PRINT #1,"22Junior" 
1320 LOCATE #1,2,7:PRINT #1,"3>Senior" 
1320 a$=INKEYS 

13d@ IF afe"i" OF ate"3" THEN GOTO 1330 
1350 SOUND 2,300,50,15 

1360 lev=VAL Cas) 

1370 GOTO 20000a 
19980 REM 3 ooo: 
20000 RESTORE 20000 

2OO1@ FOR n=o@ TO 7 

20020 READ a 

20030 INE nya 

20040 NEXT 1 

20@50 DATA 2,9,26,24,6,19,7,13 
20060 BORDER 2:PAPER @:PEN 6&:MCDE @ 
SOO7O FOR TO 235 STEP 4 

2ZOOS8O PLOT n , AO , &:DRAWE 3o ’ 330 
2OOI@ NEXT wr 

20100 FOR n=S20 TO S05 STEP —a 
ZOLI® ‘@, 6° DRAWE -S0,-33@ 
2OLZEO 
2QM130@ WINDOW #1,6,15,6,17 

24140 WINDOW #2,2,12,l4d,14 

20150 PAPER #1,1:°PEN #1,2:°CLS #1 

2@160 PAPER #2,1:°PEN #2,2°CLS #2 

ZOZSO RETURN 

20980 REM 2PoP PERE input e4eeecedadds 
21900 INPUT #2,9% 

SA@I® IF gt="" THEN GOTO 2190@ 

21920 cor=1 

Z1I@3@ IF VAL Cg$)eeans THEN cor=0 

219040 RETURN 

2idyv@ FEM * * * guess * * * 


screen ited das 


160 Sensational Games for the Amstrad 


215@@ FOR g=1 To 2 
Z2LS16 GOSUBR 21Oa¢%o 
21520 IF cor=1 THEN GOTO 21560 
SISS@ SOUND 2,500,d0@,15:SOUND 2,750,50,1 


[= 
ema 


2L5d@ NEXT yg 
2lSd2 RESTORE 2iSds 
ZiSdd FOR n=i TO F 
21546 FREAD a!tSOUND Z,a,20,15 
2LSdS NEXT 1 
ZBLISSO DATA 2Oo - pent (2) 7 BOO ,2a@ OO , Sa , A010) os 
=, AOD 
21952 SOUND 2,640,735 ,15 

SLSSS GOTO 21590 
21560 SOUND 2,600,320, ,15:°:S0UIND 2,d@O, 30,1 
SISOUND 2,200, 30,15 

1570 g=2 
21550 tot=tot+l 
ZIS9@ CLS #1°CLS #2 
21600 RETURN 
2LI9SO BEM Boob PDP DD type ceed tdedeedd 
22000 CLS #1:°CLS #2 
22010 LOCATE #1,2,2:PRINT #1, nde Meee yh 
22920 LOCATE #1,2,4:PRINT #1,"22 7-7" 
22030 LOCATE #1,2,6!PRINT Hiss 48) 
220d@ LOCATE #1,2,2°PRINT #1,"d> '" 3S CHR 
C1i72 50" 
22050 af=INEEYS 
22060 IF agivi" OF age"d" THEN GOTO 2208 
0) 
Z2O7O z=VAL Cas) 
22080 DEF FN sum=athbis$="+" 
229090 IF z=2 THEN DEF FN sum=a-his$="- 
22100 IF 2z=2 THEN DEF FN sum=a*ehist="x" 
ZL2Li@ IF z=d THEN DEF FN sum=a/h: s$=CHES 
C172) idiv=1 
22200 RETURN 
229750 REM 3 
25000 Lim=S:idiv=@ 
23010 IF lev=2 THEN Llim=12:GOSUER 2200 
22020 IF lev=3 THEN lim=25:GOSUB 22000 
22030 CLS #1:°CLS #2 
250d0 tat=o 
2310 RETURN 


23920 REM $eoES DEED numbers <eccccadeds 


Ce ee ee ee ee 


24000 
ZAD1@ 
2A O20 


24030 IF div=1 THEN 
24035 IF lev=2 THEN 
24d0d@ CLS #1:°CLS #2 
24050 IF lev=i1 THEN 


Z2d060 
2d070 
24100 
24150 


ans=FN sum 
FE TUEIN 


RANDOMIZE TIME 
a=INTCRENDC1)>*®1lim)+1 
b=INTCRNDC1)*lim)>+1 
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a=akh 
div=@ 


GOTO 2d15@ 


LOCATE #1,1,23:PRINT #1,aj;s#jh 


S@):LOCATE #1,5,S5:PRINT #1,"+" 
2d16@ LOCATE #1,2,7:PRINT #1,STRINGS( he 


IQ) 

Zd190 
Sad 200 
2d HA 
SOOO 
SOO1L® 
SALA 
3OOSO 
ZOLO® 
SOL S® 
2OLE® 
30170 
ZOOL 
SO@1LIO 
3SOZ00 
a a 


BOZO 


ans=ath 
FE TURIN 
i od 
GUSUB B2Ooe® 
FOR pei TO 
GUSUE 2doow 
GOSUB 21a 
NEXT yp 

CLS #1:°CLS #2 
PRINT #1," 
PRINT #1,” 


19 


3OZ60 ab=INKEYS 
30270 IF ag="" 


SOBSO 
SOI CLS #1:°CLS #2 
20300 GOSUB dAaooa 
S@310 GUT 1300 
40000 RETURN 


oe Say om, 


LOCATE 4,25: PRINT 


THEN GOTO 
LOCATE d, 25:2PRINT SPCC13) 


maar 


REPORT." 


SOZE@ 


loop #eeeads 


161 


LOCATE #1,2,3:PRINT #1,STRINGS(a,2 


LOCATE #1,2,5:PRINT #1,tot;"were" 
LOCATE #1,2,7:PRINT #1,"correct." 
LOCATE #1,3,9:PRINT #1,tot/1@*100 


"Press any Key" 


2.4. 
Today England 


Tomorrow the World 


This is a self-contained geographic quiz based upon the map of Great 
Britain. The game is very straightforward and consists of questions 
which relate to key towns or cities, and the county to which they 
belong. Options are given to guess the county, the town or both. A 
point is plotted on the map to indicate the location of the town or city. 

The central core of the program could be developed to produce 
either a more detailed map or as the heading suggests, the world 
could be plotted next! 

The Picture Builder program later in this book will be found 
helpful to identify the points to be plotted. The map used in this 
program was produced by taping an outline of Great Britain onto the 
screen. This was on a clear acetate sheet, so it was possible to move 
the cursor to each point, note the x,y co-ordinates and then move to 
the next point. The result can be as detailed as the mode selected and 
your patience will allow. 

Another way to develop this program would be to extend the data 
to include more or all counties and the county towns. In fact you 
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could find that the research of the facts to put into the listing is even 
more educational then the program itself! 


19 REM <2£i< TODAY ENGLAND , 

11 REM <2 TOMMORROW THE WORLD 

15 REM <<<ee ANDY / JIM “ 

16 REM 

20 GOSUB LEO 

SO MODE L:LOCATE 15,1:°PRINT "Today Engla 

red" 

25 INE @,@:BRCORDER © 

10 sc=@ 

S@ LOCATE 12,3:PRINT "Tommorrow the Worl 

4" 

6@ LOCATE 2,6:PRINT "Choose options" 

7M LOCATE 140,8:PRINT "1...-Guess countie 

Ss m 

S®@ LOCATE 10,9:PRINT "2...«.«Guess cities" 

99 LOCATE 1@,1@:PRINT "3...-Guess both" 

100 a$=INEEYS 

110 IF ag="1" THEN op=1:'GOTO 150 

120 IF ag="2" THEN opS2'GOTo ise 

120 IF ag="S" THEN op=39GOTO 150 

1d@ GOTTA 14 

150 GOSUB Fao 

160 RESTORE 1270 

165 IF op=3 THEN 630 

210 REM 33> GUESS CITY / COUNTY saeee 

220 FOR c=1 TO 16 

230 READ n$,x,y,cot 

24@ PLOT x,y,5 

250 IF op=1 THEN LOCATE 25,5:PRINT "City 
is " 

26@ IF op=1 THEN LOCATE 21,7:PRINT nt 

270 IF op=2 THEN LOCATE 25,5:2PRINT "Coun 

ty is " 

25@ IF op=2 THEN LOCATE 21,7:°PRINT cos 

2970 tress 

30®@ IF op=1 THEN LOCATE 25,9:PRINT "Coun 

ty is" ELSE IF op=2 THEN LOCATE 22,9:PRI 

NT "City is" 

31@ IF op=1 THEN INPUT #3, c%?c$=UIPPERS(c 

$) 

S20 IF op=z THEN INPUT #3, cis? ci$=UPPERS 
(cis) 
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33@ IF op=1 AND c#=co# THEN 420 
S40 IF op=2 AND cit#=n% THEN 420 
SS@ tr=tr-LiLagcaATE 26,20:PRINT "Wrong"3t 
tries" 

S60 LOCATE 3@,22:°:PEINT "left." 
37% GOSUB 150@ 

SSO LOCATE 26,2@:PRINT SPCC 1d) 
390 LOCATE 30,22:PRINT SPCCé) 

d@® IF tr=@ THEN S@0o 

410 GOTO 300 

420 GOSUR iddo 

430 LOCATE 26,1@:PRINT "Correct." 
dd@ GOSUR 150 

4540 sc=scttr 

460 PLOT x,y,@ 

470 PRINT #3 

450 PLOT @,@,1 

490 GOSUB idda 

=2@@ NEXT ¢ 


S1@ CLS:PRINT:PRINT " You scored"3sc 
;" points." 

S20 PRINT: PRINT! PRINT" Press "SPACE? 
to start again" 

S20 PRINT! PRINT" or TH toa quit 


S40 aS=INKEYS! a$=UPPERS (at) 

320 IF ag=" "THEN 30 

S60 IF at="GQ" THEN END 

370 GOTO 3d 

610 REM 33>>>% GUESS CITY & COUNTY 

620 REM 

630 FOR c=1i Ta 16 

649 READ n&, x ,y,c#iPLOT x,y,3 

65@ LOCATE 25,9°PRINT "City is” 

660 tras 

67@ INPUT #3,cié 

68@ IF cis=n$ THEN GOSUB ldd@:LOCATE 25, 
1@:PRINT "“Correct":GUSUB 1L3Q@@isc=scttriG 
QSUR idd@:GOoTa 750 

6790 tr=tr-i 

7@® LOCATE 26,2@:PRINT "Wrong"str3" trie 


71i@ LOCATE 30,22:PRINT "left." 
720 GOUSUE 1500 
725 LOCATE 26,2@:PRINT SPCC 1d) 


TEE 
Ta? 
730 
740 
730 
760 
77M 
TAO 
aoe 
SUB 
: FO 
BO 


wow 


at ag 0 
OQ Poa 
SS 


i 
z 


Laae 
141®@ 
1020 
1030 
14d4@ 
Lasa 
1060 
107® 
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LOCATE 3@,22:PRINT SPCC4) 

IF tr=@ THEN 720 ELSE GOTO 6&7®@ 

LOCATE 25,1°PRINT "CITY IS" 

LOCATE 2@,3:PRINT n& 

LOCATE 25,9:2PRINT "County is" 

tres 

INPUT #23, co 

IF cot=c$ THEN GOSUB idd@:LOCATE 25, 

RINT "Correct":GOSUB L5Q@O:sc=scttriG 
ldd@:GoTa Sd 

tr=tr-l 

LOCATE 26,2@2:PRINT "Wrong"str3" trie 


LOCATE 30,22:PRINT "left." 
GUSUB 150 
LOCATE 264,2@:PRINT SPC¢1id) 
LOCATE 340,22:PRINT SPCC4é) 
IF tr=® THEN S20 ELSE GOTO 770 
LOCATE S3,98PRINT " * 
PRINT #3 
LOCATE Z25,6:PRINT "COUNTY IS" 
LOCATE 2@,S2PRINT cH 
GUSUB LE@e@ 
GOSUB Ldde@ 
PLOT x,y, ,@ 
NEXT c?GOTO 31 
REM (RS 2 DRAW MAP <aaacacdd 
MIMDE 15 WINDCIW #35,290,d0,11,11 
PLOT @,@,1 
INK 3 0,26 
RESTORE 1120 
FOR a=1 TO i 
READ xyy 
IF a=i THEN PLOT x,y ELSE DRAW x,y 
NEXT a 
FOR a=1 TO 17 
FREAD x,y 
IF a=i THEN PLOT x,y ELSE DRAW x,y 
NEXT a 
FOR a=1 TO dtREAD x,y 
IF a=l THEN PLOT x,y ELSE DRAW x,y 
NEXT a 
FOR a=1 TO dtREAD x,y 
IF a=i1 THEN PLOT x,Y ELSE DEAW x,y 
NEXT a 
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1950 FOR a=1 TO SSREAD x,y 


1@9@ IF a=1 THEN PLOT x,y ELSE DRAW x,y 


119@® NEXT a 
11190 RETURN 
1115 REM &3>> MAPS DATA 

1129 REM Mainland Britain 
11320 DATA 192,271,225 


,377, 254, 


9,234, 341,259,355, 258,305, 228, 287 , 252,27 


t 


iy 306,203, 515,173 


294,179, 324,149, 319,13 


114d@ DATA 228,269,252, 263,270, 205,276, 21 


7,354,145,360,1135 
115@ DATA 324,83, 
3,47, 234,535,216 
246,71,259,95, 2% 
1160 DATA 204,95,198 
,198,131,216,155,252, 
,254,191, 222,209 


107,216 
1iS5,2d0, 


as 
pete ge 


BS, 2d, 210,7 


Sey 


113,216,137 
173,246,191 


117@ DATA 234,227,204, 215,192,227, 204,24 
Sit sD ie coed soe ce ba atts es 


i ,1S@, S17, 166, S41, 192,347,185 
J, ,192,371 
1180 REM Irelana 


@, S565 , 198,35 


1190 DATA ide, edi 172,229, 18d 199,172,158 


7, AGM, ALS7,L7Z, 159, 160, 109, 118,103, S2,85, 
SS,80,80,150,100,157,70,163,82,199,110,2 


00,120, 240,102,241 
1290 FEM Isle of Man 


1210 DATA 172,151, 20d 151,210, 


1 
REM Arnglesey 


1220 
123@ DATA 206,157,206,151, 214, 
5 


12d® REM Isle of Wight 


199,192,198 


160,206,15 


1250 DATA 256,55, 250,d9,292,d3,298,09, 25 


6,55 
1260 REM cities 


1270 DATA MANCHESTER, 255,171, 


NCHESTER" 


"GREATER MA 


128@ DATA CHESTER, 252,149, "CHESHIRE" 
129@ DATA LEEDS, 282,175, "YORKSHIRE" 
13@@ DATA HULL, 30,181, "HUMBERSIDE" 
1310 DATA LIVERPOWL, 250,163, "MERSEYSIDE" 


BzZ@ DATA BIRMINGHAM, 274,119, 


NDS" 


"WEST MIDLA 


LE3@0 
13d 
LS5® 
1360 
IRE" 
1370 
1350 
Taye 
1ad00 
AND" 
ldio 
1420 
14:30 
1lddo@ 
1d 50 
1440 
1dé65 
1470 
1dao 
1455 
Lediné 
1490 
LE0@ 
4990 
FOO 
SOOS 
S@1a 
a2 et 
baal © ak 2) 
bal C4 abe 
FiO 3@ 
OSS 
EOcl @ 
SOdS 
SOI 
SOS 
FOE@ 
O65 
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DATA LONDON, 312,85, "GREATER LONDON" 
DATA BRISTOL, 260,83, "AVON" 

DATA CARDIFF ,244,95, "MID GLAMORGAN" 
DATA CAMBRIDGE, 322,115, "CAMBRIDGESH 


DATA GLASGOW, 216,261, "STRATHCLYDE" 
DATA EDINBURGH, 25,261, "LOTHIAN" 
DATA ABERDEEN, 250,315, "GRAMPIAN" 
DATA NEWCASTLE, 266, 223, "NOR THUMBERL 


DATA BELFAST ,179, 200, "ARMAGH" 
DATA DUBLIN, 160,160,"DUBLIN" 
REM >» CLEAR RIGHT SIDE CF SCREEN 
FOR q=1 TO 2d 

LOCATE 25 ,q:PRINT SPCC1S) 
NEXT 

5$=STRING$ (6,32) 

LOCATE Z2@,11:PRINT s# 

LOCATE 20@,7:2PRINT s# 

LOCATE 20,3: PRINT s# 

LOCATE 2@,84:PRINT s% 


RE TLIRN 
FOR t=1 TO S@O@@INEXT tiRE TURN 
REM <2 NO TRIES LEFT 33323> 


GOSUB Ldd® 

LOCATE 23,3 

PEINT "CITY IS " 

LOCATE 21,5 

PRINT 

LOCATE 23,10 

PRINT "COUNTY IS " 
LOCATE 21,12 

PRINT cos 

GOSUB 1LEa@@ 

GOSUR 1idd@ 

LOCATE 21,5:2PRINT SPCC&) 
LOCATE 21,12:PRINT SPCC4G) 
GaTO 46a 
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Character Builder 


The Create Your Own Monster Kit 


Character building can be as much fun as playing a game. This 
‘utility’ enables 32 of the Amstrad’s characters to be defined easily 
and then butted together to form more complex pictures. 

The built-in characters from 224 to 255 are first displayed and then 
the opportunity is given to adapt them, swap them, or create 
completely new ones. The definition values can be noted down and 
then used in your own programs using the ‘Symbol’ command. 
Complete sets can be saved on tape to produce a library of useful 
characters. 

Although many of the programs in this book have had characters 
designed for them, others use standard characters. With this 
character definer you can dramatically improve the appearance of 
these games. You may even wish to change all the ones in the book! 

Because of the wide range of features in this editor, it may take a 
little time learning how to drive it. The following list of commands 
will provide a handy reference guide during your ‘Learner’ period. 
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Character builder reference guide 


After loading, the grid starts with the first character picked up. This 
may then be Edited, Cleared, or any of the following can be selected 
by pressing the first letter of the option. 


Clear. This clears the grid completely. 

Pick up. Asks for character number, then as the last digit is pressed 
that character will be transferred to the grid. It can then be Edited, 
Changed, etc. 

Edit. Places the flashing cursor at the top left of the grid. It can then 
be moved around using cursor or joystick. Fire or copy key will set or 
unset a point. When finished ‘Enter’ is pressed. Then the number is 
required to transfer the pattern to. 

Numbers. Asks for character to which the pattern will be assigned 
and then requires eight values, corresponding to the total for each 
line, starting at the top. This then generates the image directly. ‘Enter’ 
terminates this option. 

Mirror. Asks for character number then asks whether horizontal 
(swap left to right) or vertical (turn upside down). The result is shown 
in the grid. To store the new character select ‘Edit’ followed by‘Enter’ 
and then the character number for allocation. 

Vert shift. Asks ‘up’ or ‘down’. Moves the definition up or down 
one row with wraparound. 

Hor shift. As for Vert shift, but left or right. Wrapped lines may be 
edited out. 

X-change. Asks for two characters and then swaps their 
definitions. 

Build. Removes the grid and provides a 14 X 10 character area in 
which to test how the patterns look when fitted together. The 
character number is requested and then that pattern may be placed 
anywhere using the cursor pad or the joystick. The fire button or copy 
key fixes a character. A new character is selected by firmly pressing 
‘space’ and then entering the character number required. ‘Enter’ 
leaves Build and returns to grid. 

Save. Asks for a file name to save with, next ‘Play and ‘Record’ 
should be pressed, then ‘Enter’ will save the current set. 

Load. Asks for a file name to load, or if just ‘Enter’ is pressed the 
first file found will be loaded. 


Note that in this program ‘Escape’ is disabled to prevent loss of data. 
Switch off to end. 
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1 FEM 
= REM 


LOO C 


aaa § 
19a® 
1010 
1920 
10350 
aO1® 
sar 2 A) 
SOda 
SOA 
AOED 
a7 @ 
FOE @ 
Saw 
51a 
a110 
S120 
a1 3® 
S140 
a1S@ 
=17@ 
Iwao 
L1O@aa®o 
1@O@d®@ 
10045 
1OOS@ 
19044 
1O@a7e8 
1@OE@ 
LOBI® 
10100 
1@119% 
14120 
L@Fea 
1140® 
11i@1® 
11920 
119644 
11978© 
12000 
L2020 
12060 
1z10o 


char buarlder <°> ISSI/JIM 


ALL &BROS 
PEED WRITE 1 
GHSUE 21Li@aa 


GOSUB 2adao 
char=1:GOSUBR 22@e@ 


aft=LIPPER$ (Cat) 
IF a$="" THEN GOTO S020 
IF a$="C" THEN GOSUB 10000 
IF at="P" THEN GOSUB 11900 
IF a$="E" THEN GOSUB 12000 
IF a$="N" THEN GOSUB 13000 
IF a$="M" THEN GOSUER 14000 
IF a$="V" THEN GOSUB 15@0@ 
IF a$="H" THEN GOSUER 1600 
IF at="X" THEN GOSUER 17000 
IF at="S" THEN GOSUER 180@00 
IF a#¥="L" THEN GOSUER 17@0@ 
IF a#="B" THEN GOSUB L950 
GOTO Sore 


main loop 8a ds 


REM ci > clear grid <4icdadand 
PRINT CHR (2359 ;CHRS(@) 5 

years 

hb$=SPACE$(C 159 

FOr m=1 TO 1 

PLOT 3ih2,y,@ 

PRINT #1,h% 

y=y-1é 

NEXT 

GNSUER 2S0a0a@ 

PRINT CHE# C23) 5CHRSC1) 5 

RE TLIRN 

REM 23> D EDD pick-up Acted 
GOSUB 1@000@ 

GOSUE 2dao@ 

GOSUB 2EOOe 

RE TUFIN 

REM 33PERRSDP edit grid <etieacade 


xeliy=1 

PRINT CHES (229 5 CHRS (1) 5 
PLOT 352,352 ,3 
XL=SG6G+K#1 Es yLHESBIS-ye1le 


Character Builder 171 


12110 MOVE xi,yliPEINT #1,CHRESC1S9) 5 
12120 GOSUB 2700@ 
12120 IF le=1 AND x31 THEN x=x-1 
121d IF ri=i AND xfs THEN x=x+1 
12150 IF up=1 AND yi THEN y=y~-1 
12160 IF do=i AND yzS THEN y=y+l1 
12170 MOVE xi,yliPRINT #1,CHREéC159); 
12180 IF q=1 THEN GOTO 1e20@ 
12190 IF fi=1 THEN MOVE xl,yyltPREINT #1,¢C 
HFS C143) 3 
12260 GOTM 12100 
12290 FEM * * * quit * * * 
12300 GOSUR 2Adooo 
12310 bh=37d4 
12320 FOR n=1 TO & 
12330 a=S37@ 
123d0 ¥ x=" u 
12350 FOR m=1 TO & 
12360 IF TEST Ca,boete@ THEN MID#¢ xd ,m, 1) 
=CHRE (1d) 
12370 a=atlsd 
12380 NEXT m 
123970 GOSUBR 2S00@ 
124d0@ d¢char,n)=x 
12410 h=h-1é6 
12d20 NEXT n 
1240360 GOSUB 145460 
l2dd@® RETURN 
12950 REM 3222 
134000 GOSUB 24000 
120d FOR n=1 TO &S 
1205@ CLS #2 
13960 PRINT #2,"value "gn 
13070 INPUT #2,va 
13990 IF vati@ OF vabesh THEN GOTO 13080 
13100 dACchar,n)=va 
131140 NEXT nm 
131640 CLS #2 
12170 GOSUR 14560 
RETURN 
V0 REM => PRR REE mirror sfeaieeceda 
14@0® GOSUB 24000 
1d@SO0 PRINT #2,"CVoOert/¢CHdori F" 
144060 bhS=INEEY$: b$=IIPPERS Ch$) 
14970 IF bS="V" THEN CLS #2:G0TO 14500 
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14@3@ ITF bS="H" THEN CLS #2:G0TO 14100 
1d@9o GOTO 1406@ 

1d@7> FEM * * * HORIZONTAL * * * 

14100 FOR n=1 TO & 

14110 x=d¢€char,n)?GOSUBR 22000 

1d120 y$="90OOOO00" 

14120 FOR m=1 To & 

ld1d®@ MID#Cy$,m,1)9=MID$CxnS,9-m, 1) 
14150 NEXT m 

14160 x$=y$:GOSUB 28@0O!d¢ char ,n)=x 
1di790 NEXT wn 

1dise® GOTO 14540 

ldd9o® FEM * * * VERTICAL * * * 

id5oo FOR n=1 TO Sif Cnd=Hdechar 3 VI DENEXT 1 


14510 FOR w= TO 1 STEP ~1 

ldSB2O d¢char,no=fCI9-n) 

{di3@ NEXT vn 

1d360 x=1SE°GOSUBR ZEQO0 

14370 GOSUR Z2700®@ 

1dS30 GOSUB 1a@e@O® 

14590 GOSUB 2200 

14600 “w=1SE:GCISUB 2EQaaa 

14610 RETURN 

14950 REM PPE EOL? vert. shift efccnce 
15000 GOSUB 2d@O@:PRINT #2," CUdp7CD) own 


4 

150d® bE=INKEYS 2 b$=UPPERS ChS > 

15050 ITF be="U" THEN CLS #2:G0TO LS5120 
15460 IF bé="D" THEN CLS #2:G0TO 15090 
15070 GOTO 150d 

1500 REM * * *® down * * * 

15090 FOR m=1 TO 7:GOSUB LSELS@:NEXT m 
1S1i@@ GUTO iSzia 

15110 REM * * * up * & * 

15120 GOSUB LE1ISZ@:GOTa 1Lae1@ 

15130 FOF n=1 To s 

LSid® fc(nd=d¢char,n) 

15150 NEXT wn 

S170 d¢char,So=f¢1)> 

135150 FOR n=2 TO Sid€char,yn-lL>=f Crm) INEXT 
vs 

15190 RETURN 

15200 FEM * * * final * * * 

12210 GOSUIE 14560 
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15230 RETUFN 

LS930 REM 225225252) hori. shift “L284 4 
164000 GOSUB 2doao0o 

164d@ PRINT #2, "CLoeft/CR ight"; 

14050 b$=INEEYS 2: hb $=LIPPERS Ch$) 

16060 IF bS="L" THEN CLS #2:G0TO 161900 
14070 IF bS="F" THEN CLS #2:G0OTO 1465104 
16050 GOTO 16@5@ 

164090 FEM * * * left * * * 

16100 FOR m=1 TO 7:GOS5UK L660O02NEXT m 
161190 GOSUB 1454@ 

161420 RETURN 

164500 REM * * * right * * * 

164514 GOSLB 1660@:GOSUBR 145460 

See) RE TLRN 

16590 REM * * *® divide * * * 

16600 FOR n=1 To 

16610 fFcCnd=d¢echar rn) 

16620 w=fCnEK=INTOCHX/S02TF Keeiltfdcno/2 THE 
N xM=xtLe5 

16630 AC char,n)=x 

LEEde NEXT 1 


730 REM oe PRES OR mye aac gga’ 
1740® GOSUB Fdooe 
17@10 chari=char 
174520 GOSUB 2Fdooe 
17070 FOR n=1 To & 
17Os0 FCnd=ACchar,n) 
17090 NEXT vn 
17106 FOF n=1 TO 
171190 dAcchar eae charl,ynotd¢ chard sno=Ff¢ 
m) 
17120 NEXT wn 
17130 GOSUBR 145460 
171d@ RETURN 
17950 REM >>> >>> >So DDD Save Litt 
12000 PRINT #2,"Filename =" 
foene INPUT #2,0% 
nS="l tng 
20 SAVE né,b,d 3776, 256 
13@d@ CLS #2 
18050 RETURN 
* Disc owners should change line 18929 to: 
189296 IF nt="" THEN 18919 


. ot 
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a Lr ee ek ae ee 


LE920 * load “ened deas 
1'70@@ LEAD 
1901@ PRINT #2,"Filename 7" 

*19@20 INPUT #2, n$ingH"! "+n 
19@2@ LOAD nF 
17040 CLS #2 
197050 GOSUER 21960:GOSUR 2700 
199640 x=125:GOSUB 264000 
19970 GOUSUEK 149@9@:GOSUR Z22a0@ 
19030 RETURN 
19d50 REM Fob o o> eS > build pic tfeeecee 
19500 GOSUB 1'97550 
19540 GOSUR 2dOO0Os ch=chart+Z25 
19550 PRINT CHE$ (C23) ;CHRS C1) 5 
19600 x=S7R 8 y=382 
197610 MOVE x,y?:PRINT #1,CHRS¢ ch) 5 
19626 GOSUB 29599 
19620 IF fi=1 THEN MOVE x,y:PRINT CHRS¢2 
3S) 3CHESC@);2:PRINT #1," "32: PRINT CHES C23) 
s;CHRS C1); 
19635 MOVE x,ytPRINT #1,CHES¢ ch) 3 
19640 IF q=1 THEN GOTO 19700 
19650 IF ex=1 THEN GOUSUBR 2d@@O@ich=chart+2 


Cor nd 
et 


19660 wext1é6é*¢le=1 AND xe3e2)-16*¢Cri=1 A 
ND xiS30) 

196470 y=y-1Lé6*Cupedt AND ye sv7s>+16eCdo=1 A 
ND yee) 

17650 GOTO 197610 

19706 GOSUB 17550 

19710 GOSUER 10900 

197720 RETURN 

iyvad@ FEM * * * cls * * * 

19350 PRINT CHES C23) 5;CHE$(@);:PAPER © 
17360 FOR n=1 TO 14 

19370 LOCATE Zd,n 

197850 PRINT SPCC1S) 

193970 NEXT n 

19900 PRINT CHES (23) 5CHRSC1) 35 
19710 RETURN 

197GO0 REM 3333 initialize screen “#5 
29000 INK @,@:INE 1,24:INkE 2,3:INK 3 
20@10 PAPER @:MODE 1: BORDER © 

2OO2Z0 PAPER 2:FOFR n=1 TO 25 

%* Disc owner shouid change line 19929 to: 

19929 INPUT #2,n6:IF nS="" THEN 19929 
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20030 PRINT SPCC22)2PRINT:NEXT vr 
29035 TAG #1 

29040 PRINT ei a eae 
20050 PLOT @,395,3 


2OOEQ PRINT #1, "No. Clld New No- Old New" 
5 

20070 MOVE ©, 3o2 

ZOOLZO PRINT #1, Yeon coor ee 
5 


2OL1@ yH=sse 
2O120 FOF n=1 TO 14 
ZO@130 MOVE O@,yiPRINT #1,2234+n5 CHES (C2254 


3 
Z2O1d@ MOVE 190,y:PRINT #1,239+n;5 CHES (239 
+r) 5 


ZOLSO y=y-Za 

20160 NEXT n 

20170 GOSUEB 27000 

ZOLEO w=LEBS:GOSUBR 24aaa 

20197 GOSUB 25a0a 

WINDOW #2,25,297,11,13 

PAPER #2,1:PEN #2, 02CLS #2 

RESTORE 2O310:y=150 

FOR mn=1 TO 11 

20260 READ n&$:PLOT 382,y,3:PRINT #1,LEFT 
SC nH, 1)5 

20270 PLOT S9S,y,1:PRINT #1,MIDS(n$,2,LE 
oe 

yey-16 

F : NEXT 1 

20200 PRINT CHES (22) 5CHE$(C1)5 ¢ RETURN 
29310 DATA Clear,Pick-up,Edit,Numbers ,Mi 
rror,Vert shift 

209320 DATA Hori shift,X-change,Build,Sav 
e,load 
20930 REM 
2100 DIM fCS) 
21@10 DIM ACSS,S) 

210560 SYMBOL AFTER 224 
21960 addr=d2776 

21070 FOR n=1 TI 32 
Z21@OSO FOR m=1 TO & 

219090 d¢n,ym)=PEER Caddr) 
21100 addr=addr+l 

21110 NEXT m 

21120 NEXT vn 


initialize variables 
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addr=3d999:GOSUB FO500@ 


SLVaSa ig Baek 
22000 PRINT CHRS C25) ;CHRSC1) | 
22040 y=382 

22050 FOR n=1 To & 

my. HEd€char,n)?GOSUR 2S@a® 


2LOR®O PLOT S32, Y,2tPRINT #1,%% 5x35 


22090 y=y-16 
22100 NEXT 1 
22110 RETURN 


craw char “#020244 


ZZIGQ REM >PP PRP PRE X (S$ Ce KE 


23000 x$=HINGC x 
23040 FOR m=1 TO & 


23050 IF MIDS( xt ,m,1)="O" THEN MIDSC KS 


,i>=" u 


eee IF MID#¢CxH,m,1).="1" THEN MIDSC KS Mm 


=CHE$( 143) 
Ba NEXT m 
2ZIQ080 RETURN 


23950 REM oe PEEPS input char 


24010 ng="" 
2d@d@ FOR n=1 TO 3 


ZdO@50 PS=INEEYSIIF bSo"O" OR bSery" 


GOTO 24050 
24060 PRINT #2, 885 i n$=n$ths 
24070 NEXT n 
24075 CLS #2 
24030 char=VAL (nS) 


2dO85 IF char <22d OF char?Z8S THEN 


2419000 
24090 char=char-Z25 
24190 RETURN 
24950 FEM = So draw grid 
25000 PRINT CHES (23) 5 CHES C3) 55 x= 


~ 


z 


25010 FOR n=1 TO 9ItPLOT x,y,1:DRAW 


sY 

Z25QO2Z0 y=y-1é& 
22030 NEXT nm 
Z50d@ y=SR2 


25050 FOR n=1 TO 9:PLOT x,y,1:DRAW 


ad 
<-! 


25@6@0 x=HNt+t1é& 


24000 PRINT #2,"character % "PRINT HE 


xyyr7l 


THEN 


GOT 
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22070 NEXT wn 
ZoO2O RETURN 


O,O,5 
S6E04O FOR n=l To 164 
26050 MOVE «yy 
26060 PRINT #1," "SCHREC22 34m) 5°MOVE «+1 
BO,yYIPRINT #1," “SCHR C 2594+) 5 


ZE07O yFy-ZZ 


ZAOEO NEXT 1 
26090 RETURN 
EE9SQ0 REM boee>> array to chars seaace 


27000 addyr=d 2776 
270d0 FOR n=1 TO S2°FOR m=1 TO S 
27050 PORE addr ,d¢n,m) 
E796 addr=addr+l 
27070 NEXT mtNEXT 
27030 RETURN 
27930 REM oy 
25000 RESTORE 2509702 x=@ 
S80do FOR m=1 TO & 
25050 FREAD yiwH=MIDSCxS,m,1) 
"S060 IF wie" "THEN x=xty 

a7@ NEXT m 
SS@aO RETURN 
ZEOIO DATA 125,6d,32,16,58,d,2,1 


Now ’MERGE’ the *°INEEYS? routine. - 


Note to readers 
To check that characters are in range when requested by the operator, 
the following line should be added: 

13096 IF VA<# OR VA>225 THEN 13950 


Disk owners will have to alter the memory area used since it has 
been found to clash with the D.O.S. In lines 18930, 21968 and 27069 
the number 43776 should be changed to 42492. 
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Your Phosphor Palette 


This is hi-tech art on your Amstrad, though it is unlikely that any of 
your ‘masterpieces’ will ever fetch thousands of pounds. 

The program starts by asking for the mode (Q, | or 2) and colours 
to be used for the border (26), paper (@—15) and the initial ink 
(0-15). A list of colour numbers is in your reference manual or in 
Appendix 5 of this book. A set of drawing colours are contained in 
the program. (Change the data in lines 20119 and 20120 for different 
colours.) The next request is for a picture name, which will be used 
for saving. 

The final option offered is to have an ‘information window 
displayed. This will constantly show the current x,y co-ordinates of 
the drawing pointer and may be used to plan out plotting sequences 
to be incorporated into programs. The map of Great Britain in this 
book was generated in this way. The window appears at the top or 
bottom of the screen and automatically moves if it is in the way, 
whilst the picture underneath is still retained. 

When the screen appears a graphic ‘pencil’ shows where the line 
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will be drawn. The pencil is moved using the joystick or cursor pad. 
Pressing the fire button or copy key changes the pencil to an eraser 
symbol. This will then rub out any lines that it passes over. If the fire 
button is pressed again a cross symbol will be displayed. This 
indicates that the cursor may be moved without drawing a line. Once 
in position to draw again, pressing the fire button will return to the 
pencil and draw mode. The cursor can be cycled through these modes 
by repeated pressing of the fire button. 

A very useful alternative to using the pencil is to use the ‘Auto line’ 
mode. First the ‘Move’ symbol is obtained and moved to where the 
line is to start. Pressing ‘Space’ gives a beep and stores that position. 
The cross is then moved to the second location, ‘Space’ pressed and a 
line will be drawn between the two points. 

At any time the current drawing ink can be changed using the 
‘Enter’ key. Each press of the key steps through the available inks and 
the cursor changes colour to show the one selected. 


‘Shift’ ‘S’ saves the current picture immediately to tape when 
selected. ‘Record’ and ‘Play’ should be pressed beforehand as 
prompts are not displayed. 

‘Shift’ ‘L’ then ‘Play’ on the tape deck will load the first picture file 
found. The current screen will be cleared and the new one displayed. 


Although drawing a picture can take some time, dependent upon 
the mode, producing ‘art’ in this way can be very enjoyable. 
1 REM <<< picture builder <2 ISSI 2% 
2 REM 
5O@ SYMBOL 2d@,2d0,200,164d,1d6,79,47,30, 


a 


Si@ SYMBCL 241,240,276, 2276,152,2d,36,66, 


rs 


S20 SYMBOL 2d2,2dO, 18d, 220,235 ,1197,56,2 
,1@ 

600 MEMORY 23699 

61@ GPEED WRITE 1 

19®® GOSUB 21000 

19019 x=Oty=S399tdr=1511i=a@ 

1920 hd=divd=2°5TAG #2 

1920 IF m=1 THEN had=2 

19@4d@ IF m=2 THEN hd=1 

11946 GOSUB Zaeao 

lid@ IF ys S@ THEN po=395 ELSE po=2o@ 
1150 wH="x "4+STRECHO+"y "4+5TRSCyot" ink " 
+STRE Cpe) 
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1155 PRINT CHRS¢223) 5 CHES C1) 5 
1166 IF inf=1 THEN MOVE @,potPRINT #3,ws 


3 

1200 PRINT CHES C259 5 CHR C1) 5 

121 PLOT x,y,pe 

1220 PRINT #2,CHES$(2d0+dr) 5 

1220 PRINT CHES (22) 5 CHES Cdr) 5 

12d@ IF dr=Z THEN ko=pap ELSE ko=pe 

1250 PLUT x,y,pe 

126@ PLUT x,y,ko 

1370 PRINT CHES (23) 5CHRS(C1)5 

1380 PLOT x,y,pe 

1390 PRINT #2, CHRS(2dO+dr-) 5 

140@ PRINT CHR#¢23) ;CHRS Cdr) 5 

ldd@ PRINT CHRES¢ 23) ;CHRS¢1) 5 

14350 IF inf=i1 THEN MCIVE @,potPRINT #2,ws 
J 

1dé0 IF sav=1 THEN GOSUR 15000 

1470 IF lo=i THEN GOSUB 1850@ 

14S® IF li=i1 THEN GOSUER 23000 

SO 
17750 
1300@ CALL 22700 

1201 SAVE nt ,b,&6AEO, &SFFF 

15020 RETURN 

1Gd@@ REM Sooo > ee eee load tAdeadacccace 
*13500 LOAD "I" 

1S51@ CALL 23715 

18520 RETURN 


19920 REM 335332 initialisation “*24«e4 
20000 MODE 1:PAPER @:PEN 1 


Z2@@1@ INPUT "MODE "4m 

20020 IF m= THEN co=15:GOTO 20060 
20030 IF m=1 THEN co=S :GOTO 20060 
20@d0 IF m=2 THEN co=1 :GOTO 20060 
20050 GATO 2001® 

20060 RESTORE 20110 

20070 FOR n=o TO co 

20030 READ a 

29990 INK ry4a 

20100 NEXT vn 

20110 DATA @,18,24,2,6,20,15,3 
ZO1LZO DATA 2,21,26,5,7,13,16,5 

* Disc users should amend line 18599 to: 

18599 LOAD ns 
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290130 CLS 
240140 INPUT “BORDER "j5ho 

2QO15O0 IF bot®@ OF bote7 THEN GOTO 2@13@ 
29160 BORDER ho 

201790 CLS 

2O150 INPUT "PAPER "“spap 

20190 IF pape@ OR papee7 THEN GOTO 2@170 
20200 PAPER pap 

20210 CLS 

20220 INPUT "INITIAL INK "3jype 

20230 IF pet@ OR pesco THEN GOTO 20210 
202d0 PEN pe 

20250 CLS 

290260 INPUT "Name to "SAVE? " nit 

290279 nee"! V+ng 

20260 CLS 

20290 INPUT "Information window Y¥",as 
20300 inf=@ 

2Q@S10 IF at="y" OR ag="Y¥" THEN inf=1 
20240 MODE m 

20350 RETURN 


20900 REM *: a A Qs 
21900 GOSUE 

21910 addr=Z3729:°GOSUR 2YlOO 

21020 GOSUB 2a00a 

S1020 TAG #2 

21100 RETURN 

22000 SOUND 1,200,19,15 

23010 IF flag=1 THEN GOTO 23050 

22020 flag=lixil=xtyl=yidr=1 

25030 td=hdthd=hd*ss vd=6 

220d0 FRE TLUPIN 

23050 flag=@ihd=tdivd=z 

BE06@0 PRINT CHES C23) 5 CHES CO) 5 

25070 PLOT x,y,ypeiDREAW xl,yl 

Z2OGO PRINT CHES C239 5 CHES C1) 3 

22090 RETURN 

27930 REM =: qt s 


23000 GOUSUEK 27000:1i1=0:sav=0:1lo=@ 
2EO1@ IF le=1 AND x?@ THEN x=x-hd 
25020 IF ri=1 AND x#£639 THEN x=x+hd 
BSBOSO IF up=1 AND yex299 THEN y=ytvd 
2B0d@ IF do=1 AND y?@ THEN y=y-va 

* Disc users should change line 29279 to: 

28278 IF ns="" THEN 292606 
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Z2EO5Q IF fi=i THEN dr=dr+itIF dr=3 THEN 
dr=@ 
oe 26@ PRINT CHES C23) sCHES Cdr) 5 


sahil, IF q=1 THEN pe=pet+itIF pe=16 THEN 


IF ex=1 THEN 1i=1 
2 IF a=67 THEN CLS 
2510@ IF a=o3 THEN sav=1 
23110 IF a=76& THEN lo=1 
= FEE TLIFIN 

z REM 333%: 
30000 RESTORE 
20010 FOR n=Z23700 TOU 23726 

39020 READ a 

SOO30 POKE nya 

24@d@ NEXT ni 

SOOSO0 RETURN 

30060 DATA 33,0,172,17,22d,106 

SO@O70 DATA 1,255,63,237,176,201,9,0,0 
30030 DATA 33,224,106,17,9,192 

30990 DATA 1, 255,63,237, 176,201 


- poke b/move wfacecas 


Now *MERGE’? the ’INEKEYS’ routine « « «+ 


27 
Arnold Monitor 


So 
SS 


SEAN 


ptatserirseres 
i eed 


Open RAM Surgery 


This utility, which bears the Amstrad’s original name, will help with 
investigations into memory. The machine’s ROM routines can be 
looked at or any program which can co-reside in RAM can be 
examined. Memory can be modified, saved or loaded. 


Command summary 


View Memory. Asks for the start and finish locations, which have 
to be decimal. The memory contents will then be displayed in blocks 
of ten. ‘Space’ steps through to the ‘finish’. ‘Text’ can be read from the 
ASCII columns. 

Checksum. Asks for the start and finish. All the values are then 
totalled in decimal, inclusive of the addresses entered. This option is 
useful when entering from a listing which provides a ‘Checksum’ to 
check if errors have occurred. 

Modify mem. Again the start and the end addresses are required. 
Then the display shows the current value. Pressing ‘Enter’ will retain 
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this value and the next location will be displayed. Typing numbers 
followed by ‘Enter’ will put what is typed into the current address. If 
the value is invalid then this will be indicated and no changes will be 
made to memory. The next location will then be shown. Great care 
should be taken, since any RAM may be modified with perhaps 
surprising results. (All entries are in decimal.) 

Save. Asks for start and finish (decimal), then the file name. Saving 
commences when ‘Enter’ is pressed. ‘Record’ and ‘Play’ should be 
pressed prior to selecting the ‘Save’ option. 

Load. This, when followed by pressing ‘play’, loads the first file 
found. 

‘Shift’ ‘Q’ will quit any option. 


1 REM eee monitor <3 ISSI sbeebs 
2 FEM 

SOO MEMORY s50@ 

510 SPEED WRITE 1 

10@@® GOUSUB 2ZOOoo 

150@ PRINT #1,"Type Your Choice .« - -" 
1510 at=INKEEYS! a$=LUIPPERS (at) 

1320 IF at="V" THEN GOSUR £19000 

1530 IF a$="M" THEN GOSUR 2200 

1540 IF at="C" THEN GOSUB 22000 

1550 IF atg="S" THEN GOSUR Z2daoo 

156 GOTO 1510 
19930 REM 3352 o RPE screen ae 
ZO@0@ INE @,@:INE 1,262INE 2,15:INE 3 
2001 MODE 1 

20020 WINDOW #1,2,39,4,29 

2003@ PAPER S:PEN 2° BORDER @:CLS 
2004d@ PAPER #1,@:PEN #1,1°CLS #1 


2005 PRINT " ARNCILD MACHINE CODE M 
ONITOR" 
2O06@ PRINT "9000 semen eec nnn nner noe 


Z2@070 LOCATE 4,22:PRINT "(CV)iew memory" 
240080 LOCATE d,24d:2PRINT "CM>dodify memory 


2O@O970 LOCATE 25,22:PRINT "(Cohecksum" 
20190 LOCATE 25,2d:PRINT "(CSdave\load" 
20200 RETURN 

20930 REM FoRooE! 


21400 GUSUB 
21070 CLS #1 
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219050 PRINT #1,"Address (Chex? Va 
lune (hex) 0 werner nee 
21090 FOR n=d TO 13 

21100 LOCATE #1,1,n:PRINT #1,5ta 

21110 LOCATE #1,14@,n:PRINT #1,"C"SHEX#¢(5 
tads")" 

SL11i2@ LOCATE #1,2d,n:2PRINT #1,PEEKCsta) 

21130 LOCATE #1,31,n:PRINT #1,"C"s;HEXSCP 
EEE Cstadd3")>" 

flld@ LOCATE #1,16,n:2PRINT #1,CHR$(1)95CH 
R#CPEEKC stad); 

21l1idS IF ag="M" THEN GOTO 22E30 

21150 sta=statiilIF sta=fint+i THEN GOTO 2 
L200 

ZLL60 NEXT mn 

21179 aS$=INEEYS 

2117S IF ag="" THEN GOTO 21 e2@ 

21180 IF atee" " THEN GOTO 21170 

SL1190 GOTO 219070 

21200 at=INKEYS 

21210 IF at<e" " THEN GOTO 21200 

EL220 CLS #1°RETURN 

S1L98@ REM 3332 >> PED modify *#8cadandds 

ZEOOO GOHSUB 2EOO® 

229070 CLS #1 

S2080 PRINT #1,"Address Chex) Va 
0 Ta a a 
22090 FOR ned TO 13 

2E1@@ LOCATE #1,1,n°PFEINT #1,sta 

22110 LOCATE #1,1@,n2PRINT #1,"C"5HEXSC5 
tad3")>" 

SELZ0 LOCATE #1,24d,n:PRINT #1,PEERCsta>d 

SE120 LOCATE #1,21,0" 

221d@ at=INEEY#:1F ag=""" THEN GOTO 2eildo 
Ze1d5 IF ag="G" THEN GOTO 22230 

22150 IF a$i"@" OF age "9" THEN GOTO 2216 
2) 

BE1S5 GOSUB 225a@ 

ZE16@ sta=statitIF sta=fin+l THEN 22210 

22170 NEXT nm 

22150 at=INEEYS 

BEi90 IF a$<e" " THEN GOTO 22150 

22200 GOTO 22070 
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2EE10 at=INKEYS 

SE220 IF age" “ THEN GOTO 22210 

222350 CLS #1:RETURN 

wie FEM * * * mod * * * 

n$=""SPRINT #1, a%5 in$=ndt+at 

GNSUEB 2240 

ZES2ZO IF a$=CHR$¢C13) THEN GOTO 22700 
22530 GOTO 22510 

ZEEQ0O atF=INKEYS 

22610 IF at=""" THEN GOTO 22600 

2620 IF Cagiv@" OF age"o9") AND a$< >CHRES 
C13) THEN GOTO 224600 

SE263@ IF a$=CHR$¢13) THEN RETURN 

22640 ng=n$+ahi PRINT #1,a%5 

ZE65R0 RETURN 

22700 a=VAL (nS) 21IF at@ UF aS THEN Sou 
ND 2,300,25,15°RETURN 

22710 POKE (¢stad,a 

22720 LOCATE #1,24d,n2PRINT #1,a5" " 
22730 RETURN 
22920 REM 
239004 GOSUB 
ZIO10 tot=0 
23020 FOR n=sta TO fin 

22050 LOCATE #1,19,190 

2504d@ PRINT #1," 

ZIQO50 tot=tot+PEER Cn) 

23055 aG=INKEY#:1IF ats="" THEN n=fin 
22060 NEXT 1 

23970 SOUND 1,30@0,25,15 

22080 SOUND 1,200,253 ,15 

23090 SOUND 1,190,225 ,15 

23120 LOCATE #1,14,12 

235130 PRINT #1,"Check="stot; 

S31d0 ag=INKEYS 

22150 IF atte" " THEN GOTO 221d0 

22160 CLS #1 

22170 RETURN 

25980 REM 3222 EERE save/load tacecccdd sd 
24000 PRINT #1," CS 2ave or (LIOAMd * 
24010 atF=INKEYS! as=LIPPERS (as) 

24020 ITF at="S" THEN GOTO Sd@so 

24030 IF at="L" THEN GOTO 2d500 

Sd0d0 GOTO Sd@1e@ 

24050 CLS #1 


CC a ee ee ee 


checksum faded ad 


21070 
Bd OS@ 
Zda7VO 
Zd1a0® 
Zd110 
Sad120 
Sad 1 30 
ZA 500 
2d51@ 


2qd520 


2A 540 
24550 
ima her at 2) 


ZE01® 
ZEOLY 
ZEOS® 
ZEOAO 
2EQ0R@ 
26060 
ZE07O 
26038 
ZEOIO 
26100 
26110 
26150 
ZITO 
OOD” 
SOOLO 
SODLZO 
C12) 
SOO2S 

GOTO 
SOOO 
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GUSUE 2E00® 
IF statea@o@o THEN GOTO 2dosa 
CLS #1:2INPUT #1,"Name "gn 
NSH" UU +r S$ 

SAVE nt ,b,sta,fin-statrl 

CLS #1 

RETURN 

CLS #1 

INPUT #1,"Filename "j5n% 
MSH" UN ty gs 

LOAD n& 

CLS #1 

RETURN 

REM ib? 


input <2 gs 


PRINT #1," Start 3" 
GOSUB Z=Oaoew 


IF addr<@ OR addrtGS535 THEN 2600@ 
sta=addr 
SOUND 2,2@0,25,15 


CLS #1:PRINT #1," Finish =" 

GOUSUE Sooo 

IF addrt@ OF addr2s65535 THEN 26060 
fineaddr 

CLS #1 

IF stat=fin THEN GOTO 26000 

RE TURN 

REM 3oo>P PPD input addr ceeeddads 
née" 

a$=INKEYS 

IF ¢agiv@" OF aSe"9"> AND age SCHR S 


AND a$i2CHE$(127) THEN GOTO 30010 


IF aS=CHE$C127) AND LENCné)21 THEN 
30010 


IF at=CHE$(127) THEN nS=LEFTS¢n$,b 


EN(Cn$)—-1)9'GOTO 20050 


SOOdD 
SOORO 
S007 
SOOID 
A910 


N$=nF+as 

SOUND 2,15@,5,15:LOCATE #1,190,10 
PRINT #1,n%5" " 

IF at=CHE$¢C13) THEN GOTO 26090 
GOTO 3ae1e 

addr=VAL Crm) 

FEE TURIN 


Final Words 


In producing this book an attempt has been made to adopt a 
standard of game which is well above the norm. 

This naturally leads to longer programs which require greater care 
to enter. The time will come therefore when you will need to debug 
your programs. This is when you have the opportunity to try to 
understand how and why the programs work. 

To help you in this task there follows a ‘debug guide’. 


General points 


1. Get someone else to double check that the entry matches the 
listing. Say it out loud. 

2. Remember that in 40-column mode the listing should match the 
screen line by line. 

3. Be careful that an I has not been confused with a I. 

4. Ensure that lower case ‘a’ is entered as such and not ‘A’. 

5. Watch out for‘? instead of *:’. 

6. Double check spaces by reference to the spaces above and 
below. 

7. Double check line numbers. Don’t confuse a number which 
flows over onto another line as a line number. 

8. Treble check data. It is very easy to skip a few numbers. As an 
overall check, count how many commas and compare with the 
listing. 

9. Make sure that all quotes are in. 

10. Is there really a fault? Re-read the instructions for play. Most 
responses need to be followed by the ‘Enter’ key. 
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Specific problems 


1. To save space whilst still including substantial programs, 
extensive use 1s made of merging. Familiarise yourself with this 
technique on a simple program first. We anticipate some problems 
from readers in using this technique, but consider the finished results 
to be worth while for the majority. 

2. One of the main sources of program failure is poor handling of 
bad entries. For example, a program may crash if an unexpected 
minus number were entered. It is possible to anticipate most ‘silly’ 
entries but only at the expense of needlessly longer listings. In writing 
these programs it has been assumed that the player will not set out to 
crash the program! They are therefore only protected against class 
three idiots. If you will be exposing your finished efforts to a hostile 
environment then it is up to you to protect against class one idiots. 

3. All programs should work equally well on the monochrome 
Amstrad, but change the colours (after saving the correct version) to 
suit your own taste. Micro Mind can use symbols instead of colours 
to make the game playable in monochrome. 

4. It is always good practice to load into a machine which has just 
been powered up. This can avoid problems if the previous program 
left something changed deep within the machine. 

5. Unfortunately the Amstrad ‘Random’ function has been found 
to be very predictable. Care has been taken to minimise this problem 
whenever possible but you may be able to remember certain 
sequences. 


Debugging 


If none of the foregoing resolve the problem then roll up your sleeves 
and note some of these tips. 


1. Ifan error message indicates a fault is in a particular line, but it 
looks right when examined, remember that the fault could be in the 
line which passes information to that line. Check back related lines. 

2. Errors such as ‘Out of range’, ‘Improper argument’, etc., may be 
traced as above. To help type ‘PRINT A’ or whatever variables are 
used in that line. This should indicate the problem. 

3. Bits being missed out! The Amstrad’s ‘Tron’ function will show 
the order in which lines are called, often highlighting a rogue 
‘GOSUB' or similar problem. 
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4. Work methodically. Consider each section in turn. Set ‘Break 
points’ using ‘End’ or dump out variables by adding a short print line 
in the middle of the faulty routine. 

5. Temporarily disable sections of program by adding a ‘REM’ to 
the start of a line. See what the effect is. 

6. Re-type the section responsible! During development of these 
programs some ‘Out of memory’ errors could only be mysteriously 
solved by re-entering a single ‘perfect’ line. 

7. Use the ‘On error, ‘Erl’ and ‘Err functions normally as 
described in the manual. 

8. Go to bed — have a sleep. It sometimes works the next day! 


Appendix 1: Complete Amstrad Character Codes 


CHARACTER CHR$ | CHARACTER CHR$ CHARACTER CHR$ | CHARACTER CHR$ 
‘oe : fit we 
l tee ; ll n Het 6s ih, Fe 
i 3 3 Be bo 
nq abbebhe that Fy 
se — Hs ew f° 


i hee ot H 

thee *e | , ‘| 

¢ ..| £®+.| B-| @ 

uo 

ee : fy 7 g 68 st 10 

El a n° i 
st ongeoes "te 

ant : it, *4 7 5 } 102 

int! fh i! ° Ht 

ra rm Q 9 

oo w Nat a 

; 

if: x if 40 Hl» IF 

fi i 2 A 
: 

ae oe : a 

ofl Ww “lit: 42 4 be 4 ll = 


2 
eon | oo i ii] th 
‘ 
rt i 
H ; 
Hl 14 " 46 4 8 rh ue 
ee 
ee " th ii 
uf 7 lat a I 
i ia : ¢ + tt ss ua Int 
Too bs tbat 
. t 
a. | @.| Be] p » 
sa Pa a dt 
Hk ‘ i} 
Lt |» Ht a 


H 
ha} a u 

18 ay 50 “e 82 “yee 14 

! Ah tt ! 

aif Hutt seas oh 
"4 288 es 
ity “fs 8 i. 
fit Boe tie 


‘ 
1} Y T | 
‘ ‘ ff. 
i. i ” atl S2 alt, ss au ue 
; i? { I 
" : F 88 | it 7 
“iat, 7 “tal! a et. M. 
2 ss Ht ‘ ét 
» 6 
HL = hs W It ox 
At 
, 
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N"h wet i 
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CHARACTER CHRS | CHARACTER CHR$ | CHARACTER CHR$ | CHARACTER CHR$ 
" tft, 


128 160 ! 192 itt 24 
1 " 118th 
Ht 129 if a hy 193 fey 235 
it 
Hi 120 162 ry 104 ull 2% 
4 oe 
rt 
Hau 131 163 hy 105 allt 227 
te 
it 132 led wh, 196 aj 2K 
133 165 “hy 197 if Ih 229 
a HH 
tha 
a” 134 166 ty, 198 Hat! 0 
¢ 
(i ae 167 th 199 aft ArT 
, 
Ht 136 108 Au Py 1) "l 222 
ee W “nh — 
te 
ny 
Hi 138 170 0. rh I 24 
a ho salle a as it 5 
alles eff. 

; tk 2 i ” 
tt u ‘ tt 
ty an Ae is fa 

‘ 
thst 
il 12 3° 174 6 aon 1% 
Hl tt oats, 


ty 76 


M44 858° 176 08 Hitt 40) 
it, 
eve 
i 145 iu 7 0 antics: 4] 
ase ayy 
unt 146 eh 178 iv afm 4 
; oe sagesssy 
an 
$ 
an 147 I. 179 WW ttt} I iy 43 
Hh 
ses t 
148 x i 22 Ht a4 
ad allt 


1 ‘ 
149 tfeeslt rT “ht 2 ae 24s 
tt HH 
4 
ttt 150 ft 182 i ) ih D4 
Nt ? ys 246 
i a wl 


i 151 {.. 183 ly 215 ~a 247 
Hs, 
tatetete if 
at 152 wr 184 aaa aT ; 4X 
ull 53 oagee sits ui 
" tH 185 ae walt Ba 249 
154 oi i 
anaesest a 1. 186 its 28 anedee? 250 
ae Setetete t's, 
‘ 
HH a if! 
snatiees 155 waht 187 ay wf, 251 
a Oe | 
opt ans 
133 156 i} 188 220 th 252 
i ath it 
FE 157 AG ‘ 189 as ult an 
| iad 2 y 
sprees 
s8iggitt 158 i 190 atl {: _ 
tHeeatt alle 


suafdase 159 if i 191 Ms 24 aff 258 
' deh wits, 


Appendix 2: Defined Character Design Ai 


Feeseecsteccats 
Bgeseeee sense 


el 
gees fteseeei setae 
Seg seenecal 


CHARACTER DEFINITIONS 
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Appendix 3: Screen Layout Planner 


MODE 20 COLUMNS x 25 ROWS 16 COLOURS 
1 2 3 4 5 6 7 8 9 10 1 12 13 14 18 16 17 18 19 20 
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COLOUR ALLOCATION 


a 

es 

Z 

—) 

Il 

COO OND 
Huu 
ARN 
Hou wud 


AhWN- 
eo th ue 
— 
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MODE 1 40 COLUMNS x 25 ROWS 4COLOURS 


1203 4 § 6 7 8 9 1011 12 13.14 1S 16 171819 20 21 2223 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39.40 
ae mass - — 


EEE EEE EEE H 
Eee ieeeetentttttie 
IHSEEESEESEaESESEESHLSHESE Sreiitt 
REECE EEE EEE CECE EEE 
aoa HE acne 4 

EEE | 


5 6 7 8 9 1011 12 13.14 1S 16 171819 20 21 2223 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 


PEN @ = 2= 
l= 3= 
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2 COLOURS 


80 COLUMNS x 25 ROWS 


MODE 2 


tits 


sUTTTTTTTTTTTTT 


Stirs: 

os 
t_ 
Seg —— : 
244 a SSSSca== 
= ey = =a 
: aero 
& [TI aa 
: =====5 
SSence == 
3 ssa5 
Ss 
SSS==5 
R seecese 
a EE = Sb 
a = 
g J 
bd = 
2 ===> = 
= [+ a 
= === == 
S = oe ae 
7 
oe 
wT 
4 


COLOUR ALLOCATION 


PEN 1 = 
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Appendix 4: Amstrad Memory Map 


& 10000 r — 
SCREEN UPPER 
& C000 
JUMPBLOCK/STACK —_| 
&BIM =f ---—-----——- 
USER MEMORY 
& 4000 ee eee 
USER MEMORY er 
ROM 
& 0040 


& 0900 


RESTARTS 


Appendix 5: Amstrad Colour Table 


OAAIDUNRWN— © 


COLOUR 


BLACK 

BLUE 

BRIGHT BLUE 
RED 
MAGENTA 
MAUVE 
BRIGHT RED 
PURPLE 
BRIGHT MAGENTA 
GREEN 

CYAN 

SKY BLUE 
YELLOW 


COLOUR 


WHITE 

PALE BLUE 
ORANGE 

PINK 

PALE MAGENTA 
BRIGHT GREEN 
SEA GREEN 
BRIGHT CYAN 
LIME GREEN 
PALE GREEN 
PALE CYAN 
BRIGHT YELLOW 
PALE YELLOW 
BRIGHT WHITE 


Appendix 6: Quick Syntax Checker 


The Amstrad manual contains a comprehensive and instructional 
section for each part of the BASIC syntax. However, sometimes it is 
useful to be able to have an idea of which ‘word’ is required before 
looking it up. This list of all the keywords has been separated into 
useful subsections. Anyone wishing to learn the commands 
associated with say‘SOUND’ would simply look up the correct list and 


then refer to the individual section in the Amstrad manual. 


MATHS DRAWR POKE 
ABS MOVE REMAIN 
AND MOVER RETURN 
ATN ORIGIN SPEEDINK 
CINT PLOT SPEEDWRITE 
COS PLOTR STEP 
CREAL TAG STOP 
DEF TAGOFF THEN 
DEG TEST TIME 
EXP TESTR TO 
FIX WAIT 
EN CONTROL WEND 
INT AFTER WHILE 
LOG CALL WIDTH 
LOG 10 DI 
MAX EI SOUND 
IN ELSE ENT 
MOD END ENV 
NOT ERROR ON SQ 
OR EVERY RELEASE 
PI FOR SOUND 
RAD GOSUB SQ 
RANDOMIZE GOTO 
RND IF PROGRAMMING 
ROUND INKEY AUTO 
SGN INKEY$ CLEAR 
SIN IMP CONT 
SQR JOY DATA 
TAN LINE INPUT DELETE 
UNT NEXT DEFINT 
XDR ON DEFREAL 
ON BREAK DEFSTR 
GRAPHICS ONERRORGOTO — DIM 
CLG OUT EDIT 
DRAW PEEK ERASE 
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ERL CHAIN STRIN$ 
ERR CLOSEIN UPPER$ 
FRE CLOSEOU1 VAL 
HIMEM EOF 
INPUT LOAD SCREEN 
KEY MERGE BORDER 
KEY DEF OPENIN CLS 
LET OPENOUT INK 
LIST SAVE LOCATE 
MEMORY MODE 
NEW STRING PAPER 
READ ASC PEN 
REM BINS POS 
RENUM CHR$ PRINT 
RESTORE DEFSTR SPC 
RESUME HEX$ TAB 
RUN INSTR USING 
SYMBOL LEFT$ VPOS 
SYMBOL AFTER LEW WINDOW 
TROFF LOWERS WINDOW SWAP 
TRON MID$ XPOS 
RIGHTS YPOS 
FILES SPACES ZONE 


CAT STR$ 


Here is a selection of 24 exciting, high-quality games 
written especially for the Amstrad and designed so the 
reader can create his own games using the basic 
subroutines in the book. All categories of games are 
included from the classic Maze Maniac to educational 
games such as Sum Fun. Each program is presented to 
appeal to all Amstrad owners no matter how old or 
young, whether you are completely new to computing or 
fairly experienced. A selection of useful routines is also 
given to help you modify the memory, create original 
graphics and develop your own programs. A reference 
section includes character codes, memory map, quick 
syntax checker and screen and char grid. 


All the games make full use of the Amstrad's facilities and 
are thoroughly tested and crash-proofed. Each game is 
suitable for use with the CPC464 and CPC664 using disc or 
tape. 


The Author 

Jim Gregory is Managing Director of Mr Micro Ltd., one of 
Britain’s leading games software houses. He has 
contributed to Personal Computer World, Leisure and 
Electronics Trader and Computer and Video Games. 
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